AutoAttach (propiedad)

Importante

En este artículo es máquina traducido, vea la exención de responsabilidad. Encontrará la versión en inglés de este artículo aquí para su referencia.

True si el lugar donde la línea de la llamada se adjunta al cuadro de texto cambia según si el origen de la línea (donde señala la llamada) es la izquierda o la derecha del cuadro de texto de la llamada. MsoTriStateMsoTriState de lectura y escritura.

Sintaxis

expresión .AutoAttach

expresión Variable que representa un objeto CalloutFormat.

Observaciones

Cuando el valor de esta propiedad es True, el valor de colocación (distancia vertical desde el borde del cuadro de texto de llamada hasta el lugar donde se une la línea de llamada) se mide desde la parte superior del cuadro de texto cuando el cuadro de texto está a la derecha del origen y se mide desde la parte inferior del cuadro de texto cuando el cuadro de texto está a la izquierda del origen. Cuando el valor de esta propiedad es False, el valor de drop siempre se mide desde la parte superior del cuadro de texto, independientemente de las posiciones relativas del cuadro de texto y el origen. Utilice el CustomDrop método para establecer el valor de colocación y utilizar el Drop propiedad para devolver el valor de colocación.

Esta propiedad afecta a una llamada sólo si se ha establecido explícitamente un valor de drop, es decir, si el valor de la DropType propiedad es msoCalloutDropCustom. De forma predeterminada, cuando se crean las llamadas se establecidos explícitamente sus valores.

Ejemplo

En este ejemplo, se agregan dos llamadas al documento activo. Si arrastra el cuadro de texto de cada una de estas llamadas a la izquierda del origen de la línea de la llamada, el lugar del cuadro de texto donde se adjunta la línea cambiará para la llamada que se ha adjuntado automáticamente.

Dim docActive as Document

Set docActive = ActiveDocument

With docActive.Shapes
    With .AddCallout(msoCalloutTwo, 100, 170, 200, 50)
        .TextFrame.TextRange.Text = "auto-attached"
        .Callout.AutoAttach = msoTrue
    End With
    With .AddCallout(msoCalloutTwo, 100, 350, 200, 50)
        .TextFrame.TextRange.Text = "not auto-attached"
        .Callout.AutoAttach = msoFalse
    End With
End With

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.