縦アクセント バーで吹き出しテキストと吹き出し行を分離するかどうかを示す MsoTriState 定数を返すか、または設定します。 値の取得と設定が可能です。
構文
式。Accent
式CalloutFormat オブジェクトを表す変数。
戻り値
MsoTriState
注釈
アクセント プロパティの値には、以下の msotristate クラス の定数のいずれかを指定できます。
| 定数 | 説明 |
|---|---|
| msoCTrue | このプロパティでは使用されません。 |
| msoFalse | 吹き出しのテキストと引き出し線は、垂直の強調線で分けられません。 |
| msoTriStateMixed | 戻り値だけです。 msoTrue と msoFalse を指定した図形範囲の組み合わせを示します。 |
| msoTriStateToggle | 値の設定だけです。 msoTrue と msoFalse を切り替えます。 |
| msoTrue | 吹き出しのテキストと引き出し線は、垂直の強調線で分割されます。 |
例
次の使用例は、作業中の文書に楕円および楕円を指す吹き出しを追加します。 吹き出しには輪郭を設定しないで、引き出し線とテキストを分ける垂直の強調線を設定します。
With ActiveDocument.Pages(1).Shapes
' Add an oval.
.AddShape Type:=msoShapeOval, _
Left:=180, Top:=200, Width:=280, Height:=130
' Add a callout.
With .AddCallout(Type:=msoCalloutTwo, _
Left:=420, Top:=170, Width:=170, Height:=40)
' Add text to the callout.
.TextFrame.TextRange.Text = "This is an oval"
' Add an accent bar to the callout.
With .Callout
.Accent = msoTrue
.Border = msoFalse
End With
End With
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。