Table of contents
TOC
Recolher sumário
Expandir sumário

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

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

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

SintaxeSyntax

expressão. MoveIntoTextFlow ( Intervalo)expression. MoveIntoTextFlow( Range)

_expression_A variável que representa um objeto Shape ._expression_A variable that represents a Shape object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData TypeDescriçãoDescription
IntervaloRangeObrigatórioRequiredTextRangeTextRangeO intervalo de texto antes do qual a forma indicada será inserida.The range of text before which the given shape is inserted.

Valor retornadoReturn Value

NadaNothing

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. Os tipos de forma embutida inválidos incluem:The MoveIntoTextFlow method will fail if the shape to be moved is already inline or if it is not a valid inline shape type. 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 
© 2018 Microsoft