Home Excel - Dicas Microsoft Excel VBA Excel VBA - Zoom Excel vba planilha zoom incrementa e decrementa

Excel vba planilha zoom incrementa e decrementa

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Dom, 04 de Setembro de 2011 09:08  

Comentários  

 
# 14/09/2012 11:05
Gostaria que aplicasse o ZOOM em todas as guias do arquivo excel
Responder | Responder com citação | Citação
 
 
# 14/09/2012 12:17
Prezado Caio,
obrigado pelo seu contato,
Veja bem, voce poderá inserir zoom personalizado para cada folha de planiha de seu (Livro) Workbook.
Usando os Eventos de Planilha Activate(), isto é ao ativar a folha de planilhas desejada será aplicada a formatação desejada (neste caso um Zoom)
e assim sucessivamente poderá mudar o valor do zoom para outras planihas conforme sua necessidade.

Private Sub Worksheet_Activ ate()
ActiveWindow.Zoom = 200
End Sub

Private Sub Worksheet_Deact ivate()
ActiveWindow.Zoom = 100
End Sub
Fique com Deus,
Expedito Marcondes
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje224
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19730
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33459
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456288
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA