Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt eine InlineShapes -Auflistung zurück, die die Inlineformen darstellt, die in einem Textbereich enthalten sind. Schreibgeschützt.
Syntax
Ausdruck verwendet werden. InlineShapes
Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.
Rückgabewert
InlineShapes
Hinweise
Die Verwendung TextFrame.Story.TextRange.InlineShapes gibt alle Inlineformen in einem Textrahmen zurück, einschließlich derer, die sich im Überlauf befinden.
Die Verwendung gibt TextFrame.TextRange.InlineShapes nur sichtbare Inlineformen in einem Textrahmen zurück, nicht solche, die sich im Überlauf befinden.
Beispiel
Im folgende Beispiel werden die erste Form (einem Textfeld) auf Seite 1 der aktiven Publikation gesucht. Die InlineShapes -Eigenschaft ist dann verwendet, um festzustellen, ob Inlineformen im Textfeld enthalten sind. Falls einer gefunden wird, alle Inlineformen vertikal gekippt wird, und die Vordergrundfarbe auf Rot festgelegt wird.
Bei Verwendung TextFrame.Story.TextRange.InlineShapesvon werden auch alle Inline-Shapes, die sich im Überlauf befinden, gefunden.
Dim theShape As Shape
Dim i As Integer
Set theShape = ActiveDocument.Pages(1).Shapes(1)
With theShape.TextFrame.Story.TextRange
If .InlineShapes.Count > 0 Then
For i = 1 To .InlineShapes.Count
.InlineShapes(i).Flip (msoFlipVertical)
.InlineShapes(i).Fill.ForeColor.RGB = vbRed
Next
End If
End With
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.