Compartilhar via

Método OLEFormat.DoVerb (Publisher)

  • Artigo

Solicita a um objeto OLE para que execute um de seus verbos.

Sintaxe

expressão. DoVerb (iVerb)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Iverb Obrigatório Long O verbo a ser executado.

Comentários

Use a propriedade ObjectVerbs para determinar os verbos disponíveis para um objeto OLE.

Exemplo

Este exemplo executa o primeiro verbo para a terceira forma na primeira página da publicação ativa se a forma for um objeto OLE vinculado ou inserido.

With ActiveDocument.Pages(1).Shapes(3) 
 If .Type = pbEmbeddedOLEObject Or _ 
 .Type = pbLinkedOLEObject Then 
 .OLEFormat.DoVerb (1) 
 End If 
End With

Este exemplo executa o verbo Abrir para a terceira forma na primeira página da publicação ativa se a forma for um objeto OLE compatível com o verbo Abrir.

Dim strVerb As String 
Dim intVerb As Integer 
 
With ActiveDocument.Pages(1).Shapes(3) 
 
 ' Verify that the shape is an OLE object. 
 If .Type = pbEmbeddedOLEObject Or _ 
 .Type = pbLinkedOLEObject Then 
 
 ' Loop through the ObjectVerbs collection 
 ' until the "Open" verb is found. 
 For Each strVerb In .OLEFormat.ObjectVerbs 
 intVerb = intVerb + 1 
 If strVerb = "Open" Then 
 
 ' Perform the "Open" verb. 
 .OLEFormat.DoVerb iVerb:=intVerb 
 Exit For 
 End If 
 Next strVerb 
 End If 
End With

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.