Método Shape.MoveIntoTextFlow (Publisher)Shape.MoveIntoTextFlow Method (Publisher)

Move uma determinada forma para o fluxo de texto definido pela * * Objeto TextRange* *.Moves a given shape into the text flow defined by ** TextRange Object**. A forma sempre será embutida no início do fluxo de texto.The shape will always be inserted inline at the beginning of the text flow.

SintaxeSyntax

expression.expression. MoveIntoTextFlow (Intervalo)MoveIntoTextFlow(Range)

expressão Uma variável que representa um objeto Shape .expression A variable that represents a Shape object.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
IntervaloRange ObrigatórioRequired TextRangeTextRange O intervalo de texto antes do qual a forma indicada será inserida.The range of text before which the given shape is inserted.

Valor de retornoReturn value

NothingNothing

ComentáriosRemarks

O método MoveIntoTextFlow falhará se a forma a ser movida já estiver embutida ou se não for um tipo de forma embutida válida.The MoveIntoTextFlow method will fail if the shape to be moved is already inline or if it is not a valid inline shape type. Os tipos de forma embutida inválidos incluem:Invalid inline shape types include:

  • Formas embutidasInline shapes

  • Formas agrupadasGrouped shapes

  • Fragmentos de HTMLHTML fragments

  • Objetos inteligentesSmart objects

  • Caixas de texto encadeadasChained text boxes

ExemploExample

O exemplo a seguir verifica se a segunda forma na segunda página da publicação está embutida e, se não estiver, ele a embute no início do fluxo de texto do intervalo de texto indicado.The following example checks if the second shape on the second page of the publication is inline, and if it is not, inserts it inline at the beginning of the text flow of the given text range.

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