LineFormat.InsetPen プロパティ (Publisher)

指定した図形の線を境界内に描画するかどうかを示す MsoTriState 定数を設定または返します。 値の取得と設定が可能です。

構文

式。InsetPen

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

戻り値

MsoTriState

注釈

ペン描画をサポートしていない Microsoft Office 描画オブジェクトのこのプロパティを msoTrue に設定しようとすると、エラーが発生します。

テーブルの InsetPen プロパティの値は、常に msotrue を設定 します。エラーの他の値の結果にプロパティを設定しようとしています。

InsetPen プロパティの値には、Microsoft Office のタイプ ライブラリで宣言されているし、次の表に示す msotristate クラス の定数のいずれかを指定できます。

定数	説明
msoFalse	指定された図形の境界上に線が直接描かれます。
msoTriStateMixed	指定した図形範囲の msoTrue と msoFalse の組み合わせを示す戻り値。
msoTriStateToggle	msoTrue と msoFalse を切り替える設定値。
msoTrue	指定された図形の内側に線が描かれます。

例

次の使用例は、作業中の文書の 1 ページ目に 2 つの四角形を追加します。1 つ目の四角形には、境界線の内側に線を描きます。2 つ目の四角形には、境界線上に線を描きます。

Dim shpNew As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=200, Top:=150, Width:=150, Height:=100) 
 With shpNew.Line 
 .Weight = 24 
 .InsetPen = msoTrue 
 End With 
 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=200, Top:=300, Width:=150, Height:=100) 
 With shpNew.Line 
 .Weight = 24 
 .InsetPen = msoFalse 
 End With 
End With

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

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