Exemplo do objeto Page, da coleção Pages, do controle MultiPage, da propriedade SelectedItem
O exemplo a seguir acessa uma página individual de uma MultiPage de várias maneiras:
Usando a coleção Páginas com um índice numérico.
Usando a coleção Páginas com um índice de cadeia de caracteres.
Usando a coleção Páginas com o método Item .
Usando o nome da página individual na MultiPage.
Usando a propriedade SelectedItem .
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.
Private Sub UserForm_Initialize()
Dim PageName As String
For i = 0 To MultiPage1.Count - 1
'Use index (numeric or string)
MsgBox "MultiPage1.Pages(i).Caption = " _
& MultiPage1.Pages(i).Caption
MsgBox "MultiPage1.Pages.Item(i).Caption = " _
& MultiPage1.Pages.Item(i).Caption
PageName = MultiPage1.Pages(i).Name
MsgBox "PageName = " & PageName
MsgBox "MultiPage1.Pages(PageName)" _
& ".Caption = "_
& MultiPage1.Pages(PageName).Caption
MsgBox "MultiPage1.Pages.Item(PageName)" _
& ".Caption = " & MultiPage1.Pages _
.Item(PageName).Caption
'Use Page object without referring to
'Pages collection
If i = 0 Then
MsgBox "MultiPage1.Page1.Caption= " _
& MultiPage1.Page1.Caption
ElseIf i = 1 Then
MsgBox "MultiPage1.Page2.Caption = " _
& MultiPage1.Page2.Caption
End If
'Use SelectedItem Property
MultiPage1.Value = i
MsgBox "MultiPage1.SelectedItem.Caption = " _
& MultiPage1.SelectedItem.Caption
Next i
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.