Freigeben über

ShapeRange.Callout-Eigenschaft (Publisher)

  • Artikel

Gibt ein CalloutFormat -Objekt zurück, das die Formatierung einer Legende mit Linie darstellt.

Syntax

Ausdruck. Beschriftung

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

In dem folgenden Beispiel werden der aktiven Publikation ein Oval und eine Legende hinzugefügt, die auf das Oval zeigt. Der Legendentext wird ohne Rahmen, aber mit einer vertikalen Akzentleiste dargestellt, die den Text von der Legendenlinie trennt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.