Auf Englisch lesen

Freigeben über


Shapes-Objekt (PowerPoint)

Eine Auflistung aller Shape-Objekte auf der angegebenen Folie.

Hinweise

Jedes Shape-Objekt stellt ein Objekt in der Zeichnungsebene, wie beispielsweise eine AutoForm, Freihandform, ein OLE-Objekt oder Bild, dar.

Hinweis

Wenn Sie mit einer Teilmenge der Formen in einem Dokument arbeiten möchten, z. B. um nur die AutoFormen im Dokument oder nur die ausgewählten Formen zu verwenden, müssen Sie eine ShapeRange-Auflistung erstellen, die die Shapes enthält, mit denen Sie arbeiten möchten. Weitere Informationen zum Verwenden einer einzelnen Form oder mehrerer Formen gleichzeitig finden Sie unter Vorgehensweise: Verwenden von Formen (Zeichnungsobjekte).

Beispiel

Mit der Shapes-Eigenschaft können Sie die Shapes-Auflistung zurückgeben. Im folgenden Beispiel werden alle Formen der aktiven Präsentation markiert.

ActivePresentation.Slides(1).Shapes.SelectAll

Hinweis

Wenn Sie eine Aktion (z. B. Löschen oder Festlegen einer Eigenschaft) für alle Formen in einem Dokument gleichzeitig ausführen möchten, verwenden Sie die Range-Methodeohne Argument, um ein ShapeRange-Objekt zu erstellen, das alle Shapes in der Shapes-Auflistung enthält, und wenden Sie dann die entsprechende Eigenschaft oder Methode auf das ShapeRange-Objekt an.

Verwenden Sie die Methoden AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect oder AddTitle, um eine neue Form zu erstellen und der Shapes-Auflistung hinzuzufügen. Verwenden Sie die BuildFreeform-Methodein Verbindung mit der ConvertToShape-Methode, um eine neue Freihandform zu erstellen und der Auflistung hinzuzufügen. Im folgenden Beispiel wird der aktiven Präsentation ein Rechteck hinzugefügt.

ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _

    Left:=50, Top:=50, Width:=100, Height:=200

Verwenden Sie Shapes (Index), wobei index der Name oder die Indexnummer des Shapes ist, um ein einzelnes Shape-Objekt zurückzugeben. The following example sets the fill to a preset shade for shape one in the active presentation.

ActivePresentation.Slides(1).Shapes(1).Fill _

    .PresetGradient Style:=msoGradientHorizontal, Variant:=1, _

    PresetGradientType:=msoGradientBrass

Verwenden Sie Shapes.Range (Index), wobei index der Name oder die Indexnummer des Shapes oder ein Array von Shape-Namen oder Indexnummern ist, um eine ShapeRange-Auflistung zurückzugeben, die eine Teilmenge der Shapes-Auflistung darstellt. The following example sets the fill pattern for shapes one and three in the active presentation.

ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _

    .Patterned Pattern:=msoPatternHorizontalBrick

Verwenden Sie Shapes.Placeholders (Index), wobei index die Platzhalternummer ist, um ein Shape-Objekt zurückzugeben, das einen Platzhalter darstellt. If the specified slide has a title, use Shapes.Placeholders(1) or Shapes.Title to return the title placeholder. Im folgenden Beispiel wird zu der aktiven Präsentation eine Folie und anschließend zu dem Titel und Untertitel Text hinzugefügt (der Untertitel ist der zweite Platzhalter auf einer Folie mit diesem Layout).

With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes

    .Title.TextFrame.TextRange = "This is the title text"

    .Placeholders(2).TextFrame.TextRange = "This is subtitle text"

End With

Methoden

Eigenschaften

Siehe auch

PowerPoint-Objektmodellreferenz

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.