Share via

AutoAttach Property [Publisher 2003 VBA Language Reference]

  • Article

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse The place where the callout line attaches to the callout text box is fixed.
msoTriStateMixed Return value only; indicates a combination of msoTrue and msoFalse in the specified shape range.
msoTriStateToggle Set value only; toggles between msoTrue and msoFalse.
msoTrue The place where the callout line attaches to the callout text box changes depending on the location of the origin of the callout line.

expression.AutoAttach

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

When the value of this property is msoTrue, 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 msoFalse, 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 the first page. One of the callouts is automatically attached and the other is not. If you change the callout line origin for the automatically attached callout to the right of the attached text box, the position of the text box changes. The callout that is not automatically attached does not display this behavior.

With ActivePublication.Pages(1).Shapes
    With .AddCallout(Type:=msoCalloutTwo, _
            Left:=420, Top:=170, Width:=200, Height:=50)
        .TextFrame.TextRange.Text = "auto-attached"
        .Callout.AutoAttach = msoTrue
    End With
    With .AddCallout(Type:=msoCalloutTwo, _
            Left:=420, Top:=350, Width:=200, Height:=50)
        .TextFrame.TextRange.Text = "not auto-attached"
        .Callout.AutoAttach = msoFalse
    End With
End With

Applies to | CalloutFormat Object