Classe CalloutFormat (PowerPoint VBA)

Contém propriedades e métodos que se aplicam a textos explicativos de linha.

Set

Para usar uma variável de classe CalloutFormat, ela primeiro precisa ser instanciada por exemplo

Dim cft as CalloutFormat
Set cft = ActiveWindow.RangeFromPoint.Callout

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo CalloutFormat: Shape.Callout e ShapeRange.Callout

Propriedades

Accent Determina se uma barra vertical de ênfase deve separar o texto explicativo da linha de texto explicativo. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Accent = msoTrue

Angle Retorna ou define o ângulo da linha de texto explicativo. Se a linha de texto explicativo contiver mais de um segmento de linha, essa propriedade retornará ou definirá o ângulo do segmento que está mais afastado da caixa do texto explicativo. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Callout.Angle = msoCalloutAngleMixed

AutoAttach Determina se o local em que a linha de texto explicativo conecta-se à caixa do texto explicativo deve mudar de acordo com a origem da linha para onde o texto explicativo aponta: à esquerda ou à direita da caixa do texto explicativo. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Callout.AutoAttach = msoTrue

AutoLength Determina se o primeiro segmento do texto explicativo Mantém o comprimento fixo especificado pela propriedade Length ou é dimensionado automaticamente, sempre que o texto explicativo é movido. Somente leitura.

Dim mtsAutoLength As Office.MsoTriState
mtsAutoLength = ActivePresentation.Slides(1).Shapes(2).Callout.AutoLength

Border Determina se o texto explicativo especificado é circundado por uma borda. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Callout.Border = msoTrue

Drop Para textos explicativos com um valor de posicionamento explicitamente definido, essa propriedade retorna a distância vertical em pontos da extremidade da caixa delimitadora de texto até o lugar onde a linha do texto explicativo é anexada à caixa de texto. Somente leitura.

Dim sngDrop As Single
sngDrop = ActivePresentation.Slides(1).Shapes(2).Callout.Drop

DropType Retorna um valor que indica onde a linha do texto explicativo está vinculada à caixa do texto explicativo. Somente leitura.

Dim mcdDropType As Office.MsoCalloutDropType
mcdDropType = ActivePresentation.Slides(1).Shapes(2).Callout.DropType

Gap Retorna ou define a distância horizontal em pontos entre o fim da linha do texto explicativo e a caixa delimitadora de texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(2).Callout.Gap = 3

Length Quando a Propriedade autolength do texto explicativo especificado é definida como false, a propriedade Length retorna o comprimento em pontos do primeiro segmento da linha do texto explicativo (o segmento anexado à caixa do texto explicativo). Somente leitura.

Dim sngLength As Single
sngLength = ActivePresentation.Slides(1).Shapes(2).Callout.Length

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Callout.Parent

Type Representa o tipo de conector. Leitura/gravação.

ActiveWindow.RangeFromPoint.Callout.Type = msoCalloutMixed