InlineShapes-Objekt (Publisher)
Enthält eine Auflistung von Shape -Objekte, die Objekte in der Zeichnungsebene darstellen, wobei Shape.IsInline den WertTrue. Die Shapes-Auflistung ist auf Formen in einem bestimmten Textbereich begrenzt.
Hinweise
Die InlineShapes-Auflistung ist nur für das TextRange-Objekt verfügbar:
- Die Verwendung von TextFrame.Story.TextRange.InlineShapes gibt alle Inline-Shapes in einem Textrahmen zurück, einschließlich der Formen, die sich im Überlauf befinden.
- Die Verwendung von TextFrame.TextRange.InlineShapes gibt nur sichtbare Inline-Shapes in einem Textrahmen zurück, nicht solche, die sich im Überlauf befinden.
Auf die InlineShapes-Auflistung kann auch über Document.Stories(i) zugegriffen werden. TextRange, wobei i der Index für die aktive Seite der Publikation ist.
Die InlineShapes -Auflistung ist nicht in der Page.Shapes -Auflistung, einschließlich des enthaltenen ShapeRange verfügbar.
Verwenden Sie die InlineShapes-Eigenschaft des TextRange-Objekts , um eine InlineShapes-Auflistung zurückzugeben.
Verwenden Sie die Item (Index)-Methode, um eine einzelne Inlineform zurückzugeben.
Verwenden Sie die Shapes.Range-Methode , um ein ShapeRange-Objekt zurückzugeben, das alle Elemente der InlineShapes-Auflistung enthält. Ein Array von Indizes oder Zeichenfolgen oder ein einzelner Index oder eine Zeichenfolge kann als Parameter der Range -Eigenschaft, um bestimmte Formen oder eine Form innerhalb des Bereichs auszuwählen übergeben werden.
Beispiel
Das folgende Beispiel sucht nach der ersten Form, einem Textfeld auf Seite 1 der Publikation, und fügt Text an das Ende des Textbereichs in das Textfeld ein, wenn mehr als eine Inlineform innerhalb des Textbereichs vorhanden ist.
Dim theShape As Shape
Set theShape = ActiveDocument.Pages(1).Shapes(1)
With theShape.TextFrame.TextRange
If .InlineShapes.Count > 1 Then
.InsertAfter (" There is more than one inline shape in this text box.")
End If
End With
Im folgenden Beispiel wird die dritte Inlineform in einem Textfeld gesucht und vertikal gekippt.
Dim theShape As Shape
Set theShape = ActiveDocument.Pages(1).Shapes(1)
With theShape.TextFrame.Story.TextRange
With .InlineShapes(3)
.Flip (msoFlipVertical)
End With
End With
Im folgenden Beispiel wird eine ShapeRange -Variable auf festgelegt die Auflistung von Inlineformen in einem Textfeld. Jede Inlineform innerhalb des Bereichs wird dann in irgendeiner Weise geändert. In diesem Beispiel wird davon ausgegangen, dass die erste Form auf der Seite ein Textfeld ist, das drei Inlineformen enthält.
Dim theRange As ShapeRange
Set theRange = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.Story.TextRange.InlineShapes.Range
With theRange
.Item(1).Flip msoFlipVertical
.Item(2).MoveOutOfTextFlow
.Item(3).Delete
End With
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.