Publisher) (Shape.MoveIntoTextFlow 方法

將指定圖形移至 TextRange 物件所定義的文字流程中。 圖形一律內嵌插入文字流程的開頭。

語法

運算式。MoveIntoTextFlow (範圍)

expression 一個用於表示 Shape 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Range 必要 TextRange 會在前面插入指定圖案的文字範圍。

傳回值

無

註解

如果要移動的圖形已為內嵌，或不是有效的內嵌圖形類型， MoveIntoTextFlow 方法會失敗。 無效的內嵌圖案類型包括：

  • 內嵌圖案
  • 群組圖案
  • HTML 片段
  • 智慧物件
  • 連鎖文字方塊

範例

下述範例會檢查出版物第二頁上的第二個圖案是否為內嵌圖案，若不是，會將它內嵌在給定文字範圍的文字流向開端。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • 上次更新時間：