ShapeRange.InlineAlignment プロパティ (Publisher)

インライン図形に左、右、またはテキスト内の配置があるかどうかを示す PbInlineAlignment 定数を設定または返します。 値の取得と設定が可能です。

構文

式。InlineAlignment

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

注釈

InlineAlignment プロパティの値は、Microsoft Publisher タイプ ライブラリで宣言されている PbInlineAlignment 定数のいずれかになります。

インラインになっていない図形に使用すると、オートメーション エラーになります。

例

次の使用例は、 MoveIntoTextFlow メソッドを使用してテキストの流れに、文書の 2 ページ目の 2 番目の図形を移動します。 InlineAlignment プロパティは、図形を右に配置する使用されます。

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 
 theShape.InlineAlignment = pbInlineAlignmentRight 
End If

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。