Shape.MoveIntoTextFlow メソッド (発行元)

指定した図形を TextRange オブジェクトによって定義されたテキスト フローに移動します。 図形は常にテキスト フローの先頭にインラインで挿入されます。

構文

式。MoveIntoTextFlow (範囲)

式: Shape オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Range 必須 TextRange 指定された図形を挿入する位置の後にあるテキスト範囲を指定します。

戻り値

なし

解説

移動する図形が既にインラインになっている場合、または有効なインライン図形の種類ではない場合、 MoveIntoTextFlow メソッドは失敗します。 無効なインライン図形の種類は次のとおりです。

  • インライン図形
  • グループ化された図形
  • HTML フラグメント
  • スマート オブジェクト
  • リンクされたテキスト ボックス

例

次の使用例は、文書の第 2 ページの 2 番目の図形がインラインであるかどうかを判定し、インラインでない場合は、指定されたテキスト範囲のテキスト フローの先頭位置にインラインで挿入します。

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 のサポートおよびフィードバックを参照してください。

  • Last updated on