Formobjekt (PowerPoint)

Stellt ein Objekt in der Zeichnungsebene dar, z. B. eine AutoForm, eine Freihandform, ein OLE-Objekt oder eine Grafik.

Hinweise

Hinweis

Es gibt drei Objekte, die Formen darstellen: die Formen-Auflistung , die alle Formen in einem Dokument darstellt; die ShapeRange-Auflistung , die eine bestimmte Teilmenge der Shapes in einem Dokument darstellt (z. B. kann ein ShapeRange-Objekt die Shapes eins und vier im Dokument oder alle ausgewählten Shapes 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 über das Arbeiten mit einem einzelnen Shape oder mit mehreren Shapes gleichzeitig finden Sie unter Arbeiten mit Shapes (Zeichnungsobjekten).

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 den Namen "Rotes Quadrat" gegeben und anschließend 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 ein Shape innerhalb der Auswahl darstellt. Im folgenden Beispiel wird die Füllung für das erste Shape in der Auswahl im aktiven Fenster festgelegt, wobei davon ausgegangen wird, dass die Auswahl mindestens ein Shape enthält.

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 Titel hat, einen Titel hinzuzufügen, und geben Sie ein Shape-Objekt zurück, 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 Ebenenreihenfolge der Formen auf einer Folie nicht geändert haben, sind die folgenden drei Aussagen gleichwertig, vorausgesetzt, dass die erste Folie 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

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

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

Verwenden Sie die Methoden BuildFreeform und AddNodes , um die Geometrie einer neuen Freiform zu definieren, und verwenden Sie die ConvertToShape-Methode , um die Freiform 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 ein einzelnes Shape in einem gruppierten Shape 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.

  • Last updated on