Compartilhar via

Método TextRange.InsertSymbol (PowerPoint)

  • Artigo

Retorna um objeto TextRange que representa um símbolo inserido no intervalo de texto especificado.

Sintaxe

expression. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FontName Obrigatório String O nome da fonte.
CharNumber Obrigatório Long O número de caractere Unicode ou ASCII.
Unicode Opcional MsoTriState Especifica se o argumento CharNumber representará um caractere ASCII ou Unicode.

Valor de retorno

TextRange

Comentários

O valor do parâmetro CharNumber pode ser uma destas constantes MsoTriState.

Constante Descrição
msoFalse O padrão. O argumento CharNumber representa um número de caractere ASCII.
msoTrue O argumento CharNumber representa um caractere Unicode.

Exemplo

Este exemplo insere o símbolo de marca registrada após a primeira frase do primeiro parágrafo em uma nova caixa de texto do primeiro slide da apresentação ativa.

Sub Symbol()

    Dim txtBox As Shape

    'Add text box
    Set txtBox = Application.ActivePresentation.Slides(1) _
        .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
            Left:=100, Top:=100, Width:=100, Height:=100)

    'Add symbol to text box
    txtBox.TextFrame.TextRange.InsertSymbol _
        FontName:="Symbol", CharNumber:=226

End Sub

Confira também

Objeto TextRange

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.