Propriedade Accent

Permite que o usuário coloque uma barra de ênfase vertical para separar o texto explicativo da linha de texto explicativo. MsoTriState de leitura/gravação.

MsoTriState pode ser uma das seguintes constantes:
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue Uma barra de ênfase vertical separa o texto explicativo da linha de texto explicativo.

expressão.Accent

expressão Necessária. Uma expressão que retorna um dos objetos da lista Aplica-se a.

Exemplo

Este exemplo adiciona a myDocument uma oval e um texto explicativo apontando para a oval. O texto explicativo não terá uma borda, mas terá uma barra de ênfase vertical separando o texto da linha do texto explicativo.

Set myDocument = Worksheets(1)

With myDocument.Shapes
.AddShape msoShapeOval, 180, 200, 280, 130
With .AddCallout(msoCalloutTwo, 420, 170, 170,
40)
.TextFrame.Characters.Text = "My oval"
With .Callout
.Accent = msoTrue
.Border = False
End With
End With
End With