Shapes-Objekt (PowerPoint)
Eine Auflistung aller Shape-Objekte auf der angegebenen Folie.
HinwBemerkungeneise
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 der Form 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
| Name |
|---|
| Anwendung |
| Count |
| Creator |
| HasTitle |
| Parent |
| Placeholders |
| Titel |
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.
Feedback
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 unter https://aka.ms/ContentUserFeedback.
Feedback senden und anzeigen für