Partilhar via

Propriedade Page.OLEObjects (Visio)

  • Artigo

Retorna a coleção OLEObjects de uma página. Somente leitura.

Sintaxe

expression. OLEObjects

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

Valor de retorno

OLEObjects

Comentários

A propriedade OLEObjects retorna uma coleção OLEObjects que inclui todos os objetos OLE 2.0 vinculados ou incorporados e controles ActiveX contidos em um documento, mestre ou página.

Exemplo

Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como obter a coleção OLEObjects de uma página ativa e imprimir na janela Immediate as propriedades ClassID e ProgID de cada objeto OLEObject. O exemplo pressupõe que a página ativa contenha pelo menos um objeto OLE 2.0 incorporado ou vinculado ou um controle ActiveX.

 
Public Sub OLEObjects_Example() 
 
 Dim intCounter As Integer 
 Dim vsoOLEObjects As Visio.OLEObjects 
 
 'Get the OLEObjects collection of the active page. 
 Set vsoOLEObjects = ActivePage.OLEObjects 
 
 'Step through the collection of OLEObjects on the page. 
 For intCounter = 1 To vsoOLEObjects.Count 
 Debug.Print vsoOLEObjects(intCounter).ClassID 
 Debug.Print vsoOLEObjects(intCounter).ProgID 
 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.