Propriedade TextEffectFormat.KernedPairs (Publisher)

Define ou retorna uma constante MsoTriState que indica se pares de caracteres em um 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.