Mostrar el número de páginas y pestañas en los controles MultiPage y TabStrip en un formulario

En el ejemplo siguiente se muestra la propiedad Count de la colección controlsde Microsoft Forms 2.0 para el formulario y la propiedad Count que identifica el número de páginas y pestañas de cada MultiPage y TabStrip.

Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Para ejecutar el código debe abrir el formulario con el fin de que se produzca el evento Open. El formulario puede contener cualquier número de controles, con las restricciones siguientes:

• Los nombres de los controles MultiPage deben comenzar por "MultiPage".

• Los nombres de los controles TabStrip deben comenzar por "TabStrip".

Nota Puede agregar páginas a una multipágina o agregar pestañas a un TabStrip mientras está en modo de diseño. Para ello, haga doble clic en el control y, a continuación, haga clic con el botón secundario en el área de la pestaña y elija Nueva página en el menú contextual.

Sub Item_Open 
 Dim Controls 
 Dim MyControl 
 
 Set Controls = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls 
 MsgBox "Controls.Count = " & Controls.Count 
 For i = 0 to Controls.Count -1 
 Set MyControl = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls.Item(i) 
 If (MyControl.Name = "MultiPage1") Then 
 MsgBox MyControl.Name & ".Pages.Count = " & MyControl.Pages.Count 
 ElseIf (MyControl.Name = "TabStrip1") Then 
 MsgBox MyControl.Name & ".Tabs.Count = " & MyControl.Tabs.Count 
 End If 
 Next 
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.