Compartilhar via

Propriedade TextEffectFormat.KernedPairs (Publisher)

Define ou devolve uma constante MsoTriState que indica se os pares de carateres num objeto WordArt foram kerned. Leitura/gravação.

Sintaxe

expressão. KernedPairs

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

Valor de retorno

MsoTriState

Comentários

O valor da propriedade KernedPairs pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante Descrição
msoFalse Os pares de caracteres no objeto WordArt especificado não sofreram kerning.
msoTriStateToggle Alterna entre msoTrue e msoFalse.
msoTrue Os pares de caracteres no objeto WordArt especificado sofreram kerning.

Exemplo

Este exemplo ativa kerning de par de caractere para todos os objetos do WordArt na publicação ativa.

Sub KernedWordArt() 
 Dim pagPage As Page 
 Dim shpShape As Shape 
 For Each pagPage In ActiveDocument.Pages 
 For Each shpShape In pagPage.Shapes 
 If shpShape.Type = msoTextEffect Then 
 shpShape.TextEffect.KernedPairs = msoTrue 
 End If 
 Next 
 Next 
End Sub

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.

  • Last updated on