Propriedade CalloutFormat.AutoAttach (Excel)

True se o local onde a linha de texto explicativo é anexada na caixa de texto do texto explicativo mudar dependendo se a origem da linha de texto explicativo (para onde o texto explicativo aponta) for para a esquerda ou para a direita da caixa de texto do texto explicativo. MsoTriState de leitura/gravação.

Sintaxe

expressão. AutoAttach

Expressão Uma variável que representa um objeto CalloutFormat .

Comentários

Quando o valor dessa propriedade é True, o valor suspenso (a distância vertical da borda da caixa de texto de chamada até o local em que a linha de chamada é anexada) é medido da parte superior da caixa de texto quando a caixa de texto está à direita da origem e é medida da parte inferior da caixa de texto quando a caixa de texto fica à esquerda da origem.

Quando o valor dessa propriedade for False, o valor de posicionamento será sempre medido a partir da parte superior da caixa de texto, independentemente das posições relativas da caixa de texto e da origem. Use o método CustomDrop para definir o valor de posicionamento e use a propriedade Drop para retornar o valor de recebimento.

Definir essa propriedade afeta uma chamada somente se ela tiver um valor suspenso definido explicitamente, ou seja, se o valor da propriedade DropType for msoCalloutDropCustom. Por padrão, os textos explicativos têm valores de posicionamento explicitamente definidos quando são criados.

Exemplo

Este exemplo adiciona dois textos explicativos a myDocument. Se você arrastar a caixa de texto de cada um desses textos explicativos para a esquerda da origem da linha do texto explicativo, o lugar da caixa de texto onde a linha do texto explicativo é anexada será alterado para o texto explicativo anexado automaticamente.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.