Jump to content

cuadros dialogo integrados


Recommended Posts

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy