Propriedade Shape.Callout (Publisher)

Retorna um objeto CalloutFormat representando a formatação de um texto explicativo de linha.

Sintaxe

expressão. Texto explicativo

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

Exemplo

Este exemplo adiciona uma elipse à publicação ativa e um texto explicativo que aponta para a elipse. O texto explicativo não terá borda, mas terá uma ênfase vertical que separa o texto da linha do texto explicativo.

Sub NewShapeItem() 
 
 Dim shpNew As Shapes 
 
 Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes 
 With shpNew 
 .AddShape Type:=msoShapeOval, Left:=180, _ 
 Top:=200, Width:=280, Height:=130 
 With .AddCallout(Type:=msoCalloutTwo, Left:=420, _ 
 Top:=170, Width:=170, Height:=40) 
 .TextFrame.TextRange = "Big Oval" 
 With .Callout 
 .Accent = msoTrue 
 .Border = msoFalse 
 End With 
 End With 
 End With 
 
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.