Saltar al contenido

cuadros dialogo integrados

publicado

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.

Featured Replies

publicado

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.

  • Enigma25 bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.