Compartir a través de

Ejemplo de propiedades ScrollHeight, ScrollLeft, ScrollTop y ScrollWidth

  • Artículo

En el ejemplo siguiente se usa una página de multipágina como región de desplazamiento. El usuario puede usar las barras de desplazamiento en la Página2 de la página múltiple para obtener acceso a las partes de la página que no se mostraron inicialmente.

Para usar este ejemplo, copie este código muestra en la parte de Declaraciones de un formulario. Asegúrese de que el formulario contenga una página múltiple con el nombre PáginaMúltiple1 y de que cada página de la página múltiple contenga uno o más controles

Nota:

[!NOTA] Las páginas de una página múltiple son únicas. Página1 no tiene barras de desplazamiento. Página2 tiene barras de desplazamiento horizontales y verticales.

Private Sub UserForm_Initialize() 
 MultiPage1.Pages(1).ScrollBars = fmScrollBarsBoth 
 MultiPage1.Pages(1).KeepScrollBarsVisible = _ 
 fmScrollBarsNone 
 
 MultiPage1.Pages(1).ScrollHeight = 2 * _ 
 MultiPage1.Height 
 MultiPage1.Pages(1).ScrollWidth = 2 * _ 
 MultiPage1.Width 
 
 'Set ScrollHeight, ScrollWidth before setting 
 'ScrollLeft, ScrollTop 
 MultiPage1.Pages(1).ScrollLeft = _ 
 MultiPage1.Width / 2 
 MultiPage1.Pages(1).ScrollTop = _ 
 MultiPage1.Height / 2 
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.