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. Leitura/gravação MsoTriState.

Sintaxe

mais simples. Anexação Automática

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

Comentários

Quando o valor dessa propriedade for True, o valor de queda (a distância vertical da borda da caixa de texto do balão até o local onde a linha do balão é anexada) será medido a partir da parte superior da caixa de texto quando a caixa de texto estiver à direita da origem e da parte inferior da caixa de texto quando a caixa de texto estiver à 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.

A definição dessa propriedade afetará um texto explicativo somente se ele tiver um valor de descarte 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.