cuadros dialogo integrados

[nrosica2003]

Saludos.

Se trata de ver en pantalla, uno a uno, los diferentes cuadros de diálogo integrados de Excel.

Primero se indaga sobre cuantos existen y luego se pretende ir viendo cada uno de ellos.

He implementado la siguiente rutina, pero no funciona.

Sub VERCUADROS()

Dim Dialog As Object

Dim DIALOGS As Object

MsgBox " CANTIDAD DE CUADROS INTEGRADOS EXISTENTES = " & Application.DIALOGS.Count

For Each Dialog In DIALOGS

Dialog.Show

Next Dialog

End Sub

Agradezco ayuda.

[Ama]

Hola nrosica2003

Se puede usar el indice de la colección para mostrar el cuadro indicado:

Sub Abre_Cuadro

on error resume next

For i to nºcuadros

Application.Dialogs.item(i).show

next

End sub

He hecho alguna prueba y hay cuadros que no se pueden abrir ,así que he añadido la primera linea para omitir el error y poder abrir el siguiente cuadro.

[nrosica2003]

Saludos.

Gracias.

Solucionado.