共用方式為

Word) (CalloutFormat.DropType 屬性

  • 發行項

會傳回一個值，指出圖說文字線將附加至圖說文字方塊的位置。 唯讀 MsoCalloutDropType 。

語法

運算式。DropType

需要 expression。 代表 'CalloutFormat' 物件的變數。

註解

如果 drop 圖說文字類型是 msoCalloutDropCustom 、 Drop 和 AutoAttach 屬性的值與圖說文字方塊的相對位置和圖說文字線起點 (圖說文字線所指向的位置) 可用來判斷出圖說文字線圖說文字文字方塊。

此屬性是唯讀屬性。 使用 PresetDrop 方法可設定此屬性的值。

範例

本範例會檢查使用中文件上的第三個圖案是否為具有自訂垂直距離的圖說文字。 如果是，程式碼會依據自訂的垂直距離值是大於或小於圖說文字方塊的一半高度，使用兩個預設值的其中一個來取代自訂垂直距離。

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

另請參閱

CalloutFormat 物件

支援和意見反應

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