Método TextRange.InsertSymbol (PowerPoint)

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.