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.

  • Last updated on