ShapeRange.MoveIntoTextFlow-Methode (Publisher)

Artikel
04/07/2023

Verschiebt eine angegebene Form in den textfluss, der vom TextRange-Objekt definiert wird. Die Form wird immer inline am Beginn des Textflusses eingefügt.

Syntax

Ausdruck. MoveIntoTextFlow (Range)

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Range	Erforderlich	TextRange	Der Textbereich, vor dem die Form eingefügt wird.

Hinweise

Die MoveIntoTextFlow-Methode schlägt fehl, wenn das zu verschiebende Shape bereits inline ist oder kein gültiger Inline-Shape-Typ ist. Ungültiges Inline Shape-Typen umfassen:

Inlineformen
Gruppierte Formen
HTML-Fragmente
Intelligente Objekte
Verkettete Textfelder

Beispiel

Das folgende Beispiel überprüft, ob die zweite Form auf der zweiten Seite der Publikation inline ist. Falls sie nicht inline ist, wird sie inline am Beginn des Textflusses des entsprechenden Textbereichs hinzugefügt.

Dim theShape As Shape 
Dim theRange As TextRange 
 
Set theRange = ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange 
Set theShape = ActiveDocument.Pages(2).Shapes(2) 
 
If Not theShape.IsInline = msoTrue Then 
 theShape.MoveIntoTextFlow Range:=theRange 
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.

Freigeben über