Propriedade CalloutFormat.AutoAttach (Publisher)

Devolve ou define uma constante MsoTriState que indica se o local onde a linha de nota de aviso se anexa à caixa de texto da nota de aviso muda consoante a origem da linha de nota de aviso (onde os pontos de nota de aviso) se encontra à esquerda ou à direita da caixa de texto da nota de aviso. Leitura/gravação.

Sintaxe

expressão. Anexar Automaticamente

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

Valor de retorno

MsoTriState

Comentários

O valor da propriedade AutoAttach pode ser uma das seguintes constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office.

Quando o valor dessa propriedade for msoTrue, o valor de posicionamento (a distância vertical da borda da caixa do texto explicativo até o lugar onde a linha do texto explicativo é anexada) é medido da parte superior da caixa de texto quando a caixa de texto está à direita da origem e é medido da parte inferior da caixa de texto quando a caixa de texto estiver à esquerda da origem.

Quando o valor dessa propriedade é msoFalse, o valor de posicionamento sempre é medido 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 desta propriedade só afeta uma nota de aviso se tiver um valor pendente definido explicitamente, ou seja, se o valor da propriedade DropType for msoCalloutDropCustom. Por padrão, os textos explicativos possuem valores de posicionamento definidos explicitamente quando são criados.

Exemplo

Este exemplo adiciona dois textos explicativos à primeira página. Um dos textos explicativos é vinculado automaticamente e o outro não. Se você alterar a origem da linha do texto explicativo conectado automaticamente à direita da caixa de texto conectada, a posição da caixa de texto será alterada. O texto explicativo que não se conecta automaticamente não apresenta este comportamento.

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 

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.