共用方式為

Word) (CalloutFormat.Drop 屬性

  • 發行項

會傳回文字週框方塊邊緣到文字方塊中附加之圖說文字線之間的垂直距離 (以點為單位)。 唯讀 單一 。

語法

運算式。下降

表達 代表 'CalloutFormat' 物件的變數。

註解

Drop 屬性會以明確設定的垂直距離值套用至圖說文字。 除非文字方塊位於圖說文字線原點的左邊， (圖說文字指向) 的位置，否則會從文字方塊頂端測量此距離，在此情況下，會從文字方塊底部測量落差距離。

您可以使用 CustomDrop 方法可設定此屬性的值。

此屬性的值是否正確反映位置] 文字方塊中的圖說文字線附件只有圖說文字有明確設定 drop 值--亦即如果 DropType 屬性的值是 msoCalloutDropCustom 。 使用 語句 PresetDrop msoCalloutCustomDrop 將 DropType 屬性設定為 msoCalloutDropCustom。

範例

本範例依據自訂的垂直距離值是大於或小於圖說文字方塊的一半高度，使用兩個預設值的其中一個來取代使用中文件之第一個圖案的自訂垂直距離。 為使範例能正常執行，第一個圖案必須是圖說文字。

Dim docActive As Document 
 
Set docActive = ActiveDocument 
 
With docActive.Shapes(1).Callout 
 If .DropType = msoCalloutDropCustom Then 
 If .Drop < .Parent.Height / 2 Then 
 .PresetDrop msoCalloutDropTop 
 Else 
 .PresetDrop msoCalloutDropBottom 
 End If 
 End If 
End With

另請參閱

CalloutFormat 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。