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






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