Freigeben über

ShapeRange.IsInline-Eigenschaft (Publisher)

  • Artikel

Gibt eine MsoTriState-Konstante zurück, die angibt, ob eine Form inline ist. Schreibgeschützt.

Syntax

Ausdruck. IsInline

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

In diesem Beispiel wird getestet, die erste Form (ein Textrahmen) auf der ersten Seite der Publikation zu sehen, ob Inline ist. Wenn sie nicht der Fall ist, erfolgt eine Suche innerhalb der Form nach Inlineformen innerhalb des Textrahmens suchen. Inlineformen gefunden werden, haben die ForeColor -Eigenschaft auf Rot festgelegt.

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Select 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
 End With 
End If

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.