CalloutFormat.CustomDrop メソッド (Word)

境界ボックスの端から、テキストボックスと引き出し線が接する位置までの垂直距離をポイント単位で設定します。

構文

式。CustomDrop (ドロップ)

expression 必須です。 'CalloutFormat' オブジェクトを表す変数。

名前	必須 / オプション	データ型	説明
Drop	必須	単精度浮動小数点型 (Single)	ドロップ距離をポイント単位で指定します。

AutoAttach プロパティに True が設定されているとき、引き出し線の始点 (引き出し線がポイントする位置) が境界ボックスの右側にある場合は境界ボックスの上端、左側にある場合は境界ボックスの下端からドロップ値が測定されます。

PresetDrop メソッドを使用して指定した吹き出しのドロップを設定していた場合は、CustomDrop メソッドを使用する前に次のステートメントを使用して、カスタムドロップ設定を有効にします。

PresetDrop msoCalloutDropCustom

次の使用例は、作業中の文書の最初の図形に設定されているプリセットドロップを取り消し、カスタムドロップ距離を14ポイントに設定し、ドロップ距離を常に上から測定することを指定します。この使用例が動作するには、1 番目の図形は吹き出しである必要があります。

Dim docActive As Document 
 
Set docActive = ActiveDocument

With docActive.Shapes(1).Callout 
 .PresetDrop msoCalloutDropCustom 
 .CustomDrop 14 
 .AutoAttach = False 
End With