Propriedade InvisibleApp.Windows (Visio)

Retorna a coleção do Windows para uma instância ou janela do Microsoft Visio. Somente leitura.

Sintaxe

expressão. Windows (lpdispRet)

Expressão Uma variável que representa um objeto InvisibleApp .

Valor de retorno

Windows

Exemplo

Esta macro do Microsoft Visual Basic obtém a coleção Windows do objeto Application e imprime a ID de cada janela da coleção na janela Immediate.

Public Sub Windows_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim vsoWindows As Visio.Windows 
 Dim intCounter As Integer 
 
 'Get the Windows collection. 
 Set vsoApplication = Application 
 Set vsoWindows = vsoApplication.Windows 
 
 For intCounter = 1 To vsoWindows.Count 
 Debug.Print vsoWindows.Item(intCounter).ID 
 Next intCounter 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.