Shapes.AddShape-Methode (Project)

Fügt einem Bericht eine Form des angegebenen AutoShape-Typs 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 Punkt.
Top	Erforderlich	Single	Die Position des oberen Rands der AutoForm in Punkt.
Width	Erforderlich	Single	Die Breite der AutoForm in Punkt.
Height	Erforderlich	Single	Die Höhe der AutoForm in Punkt.
Typ	Erforderlich	MSOAUTOSHAPETYPE
Left	Erforderlich	FLOAT
Top	Erforderlich	FLOAT
Width	Erforderlich	FLOAT
Height	Erforderlich	FLOAT
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Shape

Hinweise

Um den Typ einer AutoForm zu ändern, legen Sie die AutoShapeType-Eigenschaft fest.

Beispiel

Im folgenden Beispiel wird ein Bericht erstellt, der zwei Cloud-Shapes enthält, und ändert dann das zweite Cloud-Shape in eine gelbe Sprechblase.

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-ObjektShape-ObjektAutoShapeType-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.