Exemplo das propriedades Max, Min, Zoom, dos controles Frame, ScrollBar

O exemplo a seguir usa a propriedade Zoom para reduzir ou ampliar as informações exibidas em um formulário, página ou quadro.

Este exemplo inclui um Quadro, uma Caixa de Texto no Quadro e uma Barra de Rolagem. O nível de ampliação do Quadro é alterado por meio do Zoom. O usuário pode definir Zoom usando a Barra de Rolagem. O TextBox está presente para demonstrar os efeitos do zoom.

Este exemplo também usa as propriedades Max e Min para identificar o intervalo de valores aceitáveis para a Barra de Rolagem.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Um rótulo chamado Label1.
• Uma ScrollBar denominada ScrollBar1.
• Um segundo rótulo chamado Label2.
• Um Frame denominado Frame1.
• Uma Caixa de Texto chamada TextBox1 que está localizada dentro do Quadro1.

Private Sub UserForm_Initialize() 
 ScrollBar1.Max = 400 
 ScrollBar1.Min = 10 
 ScrollBar1.Value = 100 
 
 Label1.Caption = "10 -----Percent of " _ 
 & "Original Size---- 400" 
 Label2.Caption = ScrollBar1.Value 
 
 Frame1.TextBox1.Text = "Enter your text here." 
 Frame1.TextBox1.MultiLine = True 
 Frame1.TextBox1.WordWrap = True 
 
 Frame1.Zoom = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Frame1.Zoom = ScrollBar1.Value 
 Label2.Caption = ScrollBar1.Value 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.