TextRange.InsertSymbol-Methode (PowerPoint)

Artikel
09/17/2024

Gibt ein TextRange -Objekt zurück, das ein in den angegebenen Textbereich eingefügtes Symbol darstellt.

Syntax

Ausdruck. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FontName	Erforderlich	String	Name der Schriftart.
CharNumber	Erforderlich	Long	Die Unicode- oder ASCII-Zeichennummer.
Unicode	Optional	MsoTriState	Gibt an, ob das Argument CharNumber ein ASCII- oder ein Unicode-Zeichen darstellt.

Rückgabewert

TextRange

Hinweise

Der Wert des CharNumber-Parameters kann eine der folgenden MsoTriState-Konstanten sein:

Konstante	Beschreibung
msoFalse	Standardwert. Das Argument CharNumber stellt einen ASCII-Zeichencode dar.
msoTrue	Das Argument CharNumber stellt ein Unicode-Zeichen dar.

Beispiel

In dem folgenden Beispiel wird nach dem ersten Satz des ersten Absatzes der ersten Folie der aktiven Präsentation das Symbol für "Registrierte Marke" in einem neuen Textfeld eingefügt.

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

Siehe auch

TextRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über