Shapes.AddCallout-Methode (Project)
Erstellt eine randlose Zeilenausschrift in einem Bericht. Gibt ein Shape-Objekt zurück, das die neue Legende darstellt.
Syntax
Ausdruck. AddCallout
(Typ,Links,Oben,Breite,Höhe)
expression Eine Variable, die ein Shapes-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Typ | Erforderlich | MsoCalloutType | Der Legendentyp. |
Left | Erforderlich | Single | Die Position des linken Rands des Begrenzungsrahmens für die Legende in Punkt. |
Top | Erforderlich | Single | Die Position des oberen Rands des Begrenzungsrahmens für die Legende in Punkt. |
Width | Erforderlich | Single | Die Breite des Begrenzungsrahmens für die Legende in Punkt. |
Height | Erforderlich | Single | Die Höhe des Begrenzungsrahmens für die Legende in Punkt. |
Typ | Erforderlich | MSOCALLOUTTYPE | |
Left | Erforderlich | FLOAT | |
Top | Erforderlich | FLOAT | |
Width | Erforderlich | FLOAT | |
Height | Erforderlich | FLOAT |
Rückgabewert
Form
HinwBemerkungeneise
Der Type-Parameter kann eine der folgenden MsoCalloutType-Konstanten sein:
msoCalloutOne: Eine einsegmentige Legendenlinie, die horizontal oder vertikal sein kann. |
msoCalloutTwo: Eine einsegmentige Legendenlinie, die sich frei dreht. |
msoCalloutMixed: Ein Rückgabewert, der eine Kombination der anderen Zustände angibt. |
msoCalloutThree: Eine Linie mit zwei Segmenten, an der das Segment endet, kann an verschiedene Positionen gezogen werden. |
msoCalloutFour: Eine Zeile mit drei Segmenten. |
Mithilfe der AddShape-Methode können Sie eine größere Auswahl von Legenden einfügen, z. B. Sprechblasen und Wolken.
Beispiel
Im folgenden Beispiel wird eine Legende mit einer Legendenlinie mit zwei Segmenten hinzugefügt, der Winkel des Endsegments auf 60 Grad von der Vertikalen festgelegt und der Legende Text hinzugefügt.
Sub AddCallout()
Dim oReports As Reports
Dim oReport As Report
Dim calloutShape As shape
Dim reportName As String
reportName = "Report 1"
Set oReports = ActiveProject.Reports
If oReports.IsPresent(reportName) Then
' Make the report the active view.
oReports(reportName).Apply
Set oReport = oReports(reportName)
Set calloutShape = oReport.Shapes.AddCallout(Type:=msoCalloutTwo, _
left:=200, top:=5, width:=100, height:=50)
With calloutShape
.Callout.Type = msoCalloutThree
.Callout.Angle = msoCalloutAngle60
.BackgroundStyle = msoBackgroundStylePreset10
.TextFrame2.TextRange.Text = "This is a test"
End With
Else
MsgBox Prompt:="The requested report, '" & reportName _
& "', does not exist.", Title:="Report error"
End If
End Sub
Siehe auch
Shapes-ObjektShape-ObjektAddShape-Methode
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für