Compartilhar via


Exemplo das propriedades ScrollHeight, ScrollLeft, ScrollTop, ScrollWidth

O exemplo a seguir usa uma página de uma MultiPage como uma região de rolagem. O usuário pode usar as barras de rolagem na Página2 da MultiPage para obter acesso a partes da página que não são exibidas inicialmente.

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 uma MultiPage chamada MultiPage1 e que cada página da MultiPage contém um ou mais controles.

Observação

Cada página de uma MultiPage é exclusiva. Page1 não tem barras de rolagem. Page2 tem barras de rolagem horizontais e verticais.

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

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.