Ejemplo de propiedades Max, Min y Zoom, controles Frame y ScrollBar

En el ejemplo siguiente se usa la propiedad Zoom para reducir o ampliar la información mostrada en un formulario, página o marco.

En este ejemplo se incluyen un Frame, un TextBox en el Frame y un ScrollBar. El nivel de aumento del marco cambia mediante Zoom. El usuario puede establecer Zoom con la barra de desplazamiento. El cuadro de texto está se encuentra presente para demostrar los efectos del zoom.

En este ejemplo también se usan las propiedades Max y Min para identificar el intervalo de valores aceptables de ScrollBar.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Un control Label denominado Label1.
• Una barra de desplazamiento con el nombre BarraDesplazamiento1.
• Una etiqueta con el nombre Etiqueta2.
• Un marco con el nombre Marco1.
• Un cuadro de texto con el nombre CuadroTexto1 que se encuentra en Marco1.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.