共用方式為


CalloutFormat.AutoAttach Property (Excel)

True if the place where the callout line attaches to the callout text box changes depending on whether the origin of the callout line (where the callout points to) is to the left or right of the callout text box. Read/write MsoTriState.

Syntax

expression .AutoAttach

expression A variable that represents a CalloutFormat object.

Remarks

MsoTriState can be one of these MsoTriState constants.

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue. The place where the callout line attaches to the callout text box changes depending on whether the origin of the callout line (where the callout points to) is to the left or right of the callout text box.

When the value of this property is True, the drop value (the vertical distance from the edge of the callout text box to the place where the callout line attaches) is measured from the top of the text box when the text box is to the right of the origin, and it’s measured from the bottom of the text box when the text box is to the left of the origin. When the value of this property is False, the drop value is always measured from the top of the text box, regardless of the relative positions of the text box and the origin. Use the CustomDrop method to set the drop value, and use the Drop property to return the drop value.

Setting this property affects a callout only if it has an explicitly set drop value — that is, if the value of the DropType property is msoCalloutDropCustom. By default, callouts have explicitly set drop values when they’re created.

Example

This example adds two callouts to myDocument. If you drag the text box for each of these callouts to the left of the callout line origin, the place on the text box where the callout line attaches will change for the automatically attached callout.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
    With .AddCallout(msoCalloutTwo, 420, 170, 200, 50) 
        .TextFrame.Characters.Text = "auto-attached" 
        .Callout.AutoAttach = True 
    End With 
    With .AddCallout(msoCalloutTwo, 420, 350, 200, 50) 
        .TextFrame.Characters.Text = "not auto-attached" 
        .Callout.AutoAttach = False 
    End With 
End With

請參閱

概念

CalloutFormat Object

CalloutFormat Object Members