TextRange.InlineShapes-Eigenschaft (Publisher)

Artikel
04/07/2023

Gibt eine InlineShapes -Auflistung zurück, die die Inlineformen darstellt, die in einem Textbereich enthalten sind. Schreibgeschützt.

Syntax

Ausdruck. InlineFormen

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

InlineShapes

Hinweise

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.

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.

Beachten Sie, dass mithilfe von TextFrame.Story.TextRange.InlineShapesauch alle Inline-Shapes gefunden werden, die sich im Überlauf befinden.

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.

Freigeben über