Edit

Share via

Page object, Pages collection, MultiPage control, SelectedItem property example

  • Article

The following example accesses an individual page of a MultiPage in several ways:

  • Using the Pages collection with a numeric index.

  • Using the Pages collection with a string index.

  • Using the Pages collection with the Item method.

  • Using the name of the individual page in the MultiPage.

  • Using the SelectedItem property.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains a MultiPage named 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.