Freigeben über

Shape-Objekt (PowerPoint)

  • Artikel

Repräsentiert ein Objekt in der Zeichnungsschicht wie eine AutoForm, eine Freihandform, ein OLE-Objekt oder ein Bild.

Hinweise

Hinweis

Es gibt drei Objekte, die Formen darstellen: die Shapes-Auflistung , die alle Formen in einem Dokument darstellt; die ShapeRange-Auflistung , die eine angegebene Teilmenge der Formen in einem Dokument darstellt (z. B. könnte ein ShapeRange-Objekt die Formen 1 und vier im Dokument oder alle ausgewählten Formen im Dokument darstellen); und das Shape-Objekt , das eine einzelne Form in einem Dokument darstellt. Wenn Sie mit mehreren Formen gleichzeitig oder mit Formen innerhalb einer Auswahl arbeiten möchten, verwenden Sie eine Sammlung ShapeRange.

Eine Übersicht darüber, wie Sie mit einem einzelnen Shape oder mehreren Shapes gleichzeitig arbeiten, finden Sie unter Arbeiten mit Shapes (Zeichnungsobjekte).

Im folgenden Beispiel werden folgende Aktionen beschrieben:

  • Zurückgeben einer vorhandenen Form auf einer Folie, die durch den Namen oder eine Nummer indiziert ist.

  • Zurückgeben einer neu erstellten Form auf einer Folie.

  • Zurückgeben einer Form innerhalb der Markierung.

  • Zurückgeben des Folientitels und anderer Platzhalter auf einer Folie.

  • Zurückgeben der Formen, die mit den Enden einer Verbindung zusammengefügt sind.

  • Zurückgeben der Standardform für eine Präsentation.

  • Zurückgeben einer neu erstellten Freihandform.

  • Zurückgeben einer einzelnen Form innerhalb einer Gruppe.

  • Zurückgeben einer neu gebildeten Gruppe von Formen.

Beispiel

Verwenden Sie Shapes (Index), wobei index der Name der Form oder die Indexnummer ist, um ein Shape-Objekt zurückzugeben, das eine Form auf einer Folie darstellt. In dem folgenden Beispiel wird Form 1 und die Form "Rectangle 1" in myDocument horizontal gespiegelt.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).Flip msoFlipHorizontal

myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

Jeder Form wird ein Standardname zugewiesen, wenn Sie sie der Sammlung Shapes hinzufügen. Um der Form einen transparenteren Namen zuzuweisen, verwenden Sie die Eigenschaft Name. Im folgenden Beispiel wird myDocument ein Rechteck hinzugefügt, ihm der Name Rotes Quadrat zugewiesen, und anschließend wird die Vordergrundfarbe und linienart festgelegt.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _

        Top:=144, Left:=144, Width:=72, Height:=72)

    .Name = "Red Square"

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Line.DashStyle = msoLineDashDot

End With

Um einer Folie eine Form hinzuzufügen und ein Shape-Objekt zurückzugeben, das die neu erstellte Form darstellt, verwenden Sie eine der folgenden Methoden der Shapes-Auflistung : Add3DModel, AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect, AddTitle.

Verwenden Sie Selection.ShapeRange (Index), wobei index der Name der Form oder die Indexnummer ist, um ein Shape-Objekt zurückzugeben, das eine Form innerhalb der Auswahl darstellt. Im folgenden Beispiel wird die Füllung für die erste Form in der Auswahl im aktiven Fenster festgelegt, wobei davon ausgegangen wird, dass sich mindestens eine Form in der Auswahl befindet.

ActiveWindow.Selection.ShapeRange(1).Fill _

    .ForeColor.RGB = RGB(255, 0, 0)

Verwenden Sie Shapes.Title , um ein Shape-Objekt zurückzugeben, das einen vorhandenen Folientitel darstellt. Verwenden Sie Shapes.AddTitle , um einer Folie, die noch keinen hat, einen Titel hinzuzufügen und ein Shape-Objekt zurückzugeben, das den neu erstellten Titel darstellt. Verwenden Sie Shapes.Placeholders (Index), wobei index die Indexnummer des Platzhalters ist, um ein Shape-Objekt zurückzugeben, das einen Platzhalter darstellt. Wenn Sie die Schichtreihenfolge der Shapes auf einer Folie nicht geändert haben, sind die folgenden drei Anweisungen gleichwertig, vorausgesetzt, dass Folie 1 einen Titel hat.

ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Italic = True

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

    .TextFrame.TextRange.Font.Italic = True

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

    .TextRange.Font.Italic = True

Verwenden Sie die BeginConnectedShape- oder EndConnectedShape-Eigenschaft, um ein Shape-Objekt zurückzugeben, das eine der durch einen Verbinder angefügten Shapes darstellt.

Verwenden Sie die DefaultShape-Eigenschaft, um ein Shape-Objekt zurückzugeben, das die Standardform für eine Präsentation darstellt.

Verwenden Sie die Methoden BuildFreeform und AddNodes , um die Geometrie einer neuen Freihandform zu definieren, und verwenden Sie die ConvertToShape-Methode , um die Freihandform zu erstellen und das Shape-Objekt zurückzugeben, das sie darstellt.

Verwenden Sie GroupItems (Index), wobei index der Name der Form oder die Indexnummer innerhalb der Gruppe ist, um ein Shape-Objekt zurückzugeben, das eine einzelne Form in einer gruppierten Form darstellt.

Verwenden Sie die Gruppe oder Regroup -Methode einen Bereich von Formen gruppieren und zurückgeben ein einzelnes Shape -Objekt, das die neu gebildete Gruppe darstellt. Nach dem bilden einer Gruppe können Sie arbeiten mit der Gruppe der gleichen Weise wie Arbeit mit einem anderen Shape.

Methoden

Eigenschaften

Siehe auch

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.