Classe Dialog (Excel VBA)

A classe Dialog representa uma caixa de diálogo interna do Microsoft Excel.

Set

Para usar uma variável de classe Dialog, ela primeiro precisa ser instanciada por exemplo

Dim dlg as Dialog
Set dlg = Application.Dialogs(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Dialog: Dialogs.Item e Application.Dialogs

For Each

Aqui está um exemplo de processamento dos itens Dialog em uma coleção.

Dim dlg As Dialog
For Each dlg In Application.Dialogs
	
Next dlg

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

Show

Exibe a caixa de diálogo interna, aguarda o usuário inserir dados e retorna um valor Boolean que representa a resposta do usuário.

Você pode usar uma única caixa de diálogo para alterar diversas propriedades ao mesmo tempo. Por exemplo, você pode usar a caixa de diálogo Formatar células para alterar todas as propriedades do objeto Font . Para algumas caixas de diálogo internas (a caixa de diálogo abrir , por exemplo), você pode definir valores iniciais usando arg1, arg2,..., Arg30. Para saber quais argumentos definir, localize a constante de caixa de diálogo correspondente em Listas de argumentos das caixas de diálogo internas. Por exemplo, procure pela constante xlDialogOpen para encontrar os argumentos da caixa de diálogo Abrir. Para obter mais informações sobre caixas de diálogo internas, consulte a coleção Dialogs.

Sintaxe : expression.Show (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

Application.Dialogs(xlDialogOpen).Show

Arguments

Os seguintes argumentos são opcionais

Arg1

Arg2

Arg3

Arg4

Arg5

Arg6

Arg7

Arg8

Arg9

Arg10

Arg11

Arg12

Arg13

Arg14

Arg15

Arg16

Arg17

Arg18

Arg19

Arg20

Arg21

Arg22

Arg23

Arg24

Arg25

Arg26

Arg27

Arg28

Arg29

Arg30

Dialogs.Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Application.Dialogs.Count

Dialogs.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: O nome ou número de índice do objeto.

Application.Dialogs.Item(xlDialogOpen).Show arg3:=True

Dialogs.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.