Compartir a través de

Método TextRange.InsertSymbol (PowerPoint)

  • Artículo

Devuelve un objeto TextRange que representa un símbolo insertado en el intervalo de texto especificado.

Sintaxis

expresión. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

Expresión Variable que representa un objeto TextRange .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
FontName Obligatorio String Nombre de la fuente.
CharNumber Obligatorio Long Número de carácter Unicode o ASCII.
Unicode Opcional MsoTriState Especifica si el argumento CharNumber representa un carácter ASCII o Unicode.

Valor devuelto

TextRange

Comentarios

El valor del parámetro CharNumber puede ser una de estas constantes MsoTriState.

Constante Descripción
msoFalse Valor predeterminado. El argumento CharNumber representa el número de un carácter ASCII.
msoTrue El argumento CharNumber representa un carácter Unicode.

Ejemplo:

En este ejemplo, se inserta el símbolo de marca registrada a continuación de la primera oración del primer párrafo del cuadro de texto nuevo en la primera diapositiva de la presentación activa.

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

Consulte también

Objeto TextRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.