Shapes.AddShape-Methode (Projekt)

Fügt einem Bericht ein Shape des angegebenen Typs "AutoShape" hinzu und gibt ein Shape-Objekt zurück, das die neue Form darstellt.

Syntax

Ausdruck. AddShape (Typ,Links,Oben,Breite,Höhe)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	MsoAutoShapeType	Gibt den Typ der zu erstellenden AutoForm an.
Left	Erforderlich	Single	Die Position des linken Rands der AutoForm in Punkten.
Top	Erforderlich	Single	Die Position des oberen Rands der AutoForm in Punkten.
Width	Erforderlich	Single	Die Breite der AutoForm in Punkten.
Height	Erforderlich	Single	Die Höhe der AutoForm in Punkten.
Typ	Erforderlich	MSOAUTOSHAPETYPE
Left	Erforderlich	FLOAT
Top	Erforderlich	FLOAT
Width	Erforderlich	FLOAT
Height	Erforderlich	FLOAT
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Hinweise

Wenn Sie den Typ einer AutoForm ändern möchten, legen Sie die AutoFormTyp-Eigenschaft fest.

Beispiel

Im folgenden Beispiel wird ein Bericht erstellt, der zwei Wolkenformen enthält, und dann die zweite Wolkenform in eine gelbe Sprechblase geändert.

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

Siehe auch

Shapes ObjectShape ObjectAutoShapeType-EigenschaftMsoAutoShapeType Enumeration (Office)

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.