具有明確設定圖說文字的 drop 值,這個屬性會傳回從文字邊界其中圖說文字線圖說文字方塊的邊緣的垂直距離。
除非 [自動附加] 屬性設為 True ,且文字方塊位於圖說文字線原點的左側,也就是圖說文字指向) 的位置,否則此距離會從文字方塊頂端開始測量 (。 在此例中,指定落差值是從文字方塊的底端測量。 唯讀 Variant 。
語法
運算式。放置
運算式 代表 CalloutFormat 物件的變數。
傳回值
Variant
註解
數值以 點為單位評估;字串可以使用 Microsoft Publisher (支援的任何單位,例如 “2.5 in”) 。
您可以使用 CustomDrop 方法可設定此屬性的值。
只有在圖說文字具有明確設定的放置值時,也就是 DropType 屬性的值為 msoCalloutDropCustom,此屬性的值才會準確反映文字方塊中的圖說文字行附件的位置。
範例
本範例依據自訂的垂直距離值是大於或小於圖說文字方塊的一半高度,分別用兩個預設值之一取代使用中出版物第一個圖案的自訂垂直距離。 為使本範例能正常執行,這個圖案必須是圖說文字。
With ActiveDocument.Pages(1).Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop DropType:=msoCalloutDropTop
Else
.PresetDrop DropType:=msoCalloutDropBottom
End If
End If
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。