Excel vba planilha zoom incrementa e decrementa

Saberexcel - O Site para quem precisa Aprender Macros MS Excel VBA

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), altera o nível do zoom do écram aumentando ou diminuindo

Sub Aumentar_Zoom()
Dim vZoom As Long
[A2:A1000].ClearContents
   vZoom = ActiveWindow.Zoom
   vZoom = vZoom + 10

    If vZoom <= 400 Then
        ActiveWindow.Zoom = vZoom
    End If
    Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub

Sub Diminuir_Zoom()
    [A2:A1000].ClearContents
    Dim vZoom As Long
    vZoom = ActiveWindow.Zoom
    vZoom = vZoom - 10

    If vZoom >= 10 Then
        ActiveWindow.Zoom = vZoom
    End If
    Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub

Sub Zoom_Barra_rolagem()
[A2].Select
ActiveWindow.Zoom = [C2].Value
[A65000].End(xlUp).Offset(1, 0).Value = "Zoom [" & [C2] & " ] - Saberexcel [ " & Now() & " ]"
End Sub

Sub padrao_zoom_100()
    ActiveWindow.Zoom = 100
    [A2:A1000].ClearContents
    Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub

Sub zoom_1()
    ActiveWindow.Zoom = 10
    [A2:A1000].ClearContents
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Baixe o exemplo de planilha contendo os macros acima
Excel vba planilha zoom incrementa e decrementa (71.05 KB)

Publicidade
Compre com segurança, garantia e ótimos preços

Tags: