Méthode TextRange.InsertSymbol (PowerPoint)

Renvoie un objet TextRange qui représente un symbole inséré dans la plage de texte spécifiée.

Syntaxe

expression. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

expression Variable qui représente un objet TextRange .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FontName	Obligatoire	String	Nom de la police.
CharNumber	Obligatoire	Long	Représente le numéro du caractère Unicode ou ASCII.
Unicode	Facultatif	MsoTriState	Spécifie si l’argument NumCar correspond à un caractère ASCII ou Unicode.

Valeur renvoyée

TextRange

Remarques

La valeur du paramètre CharNumber peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFalse	Valeur par défaut. L’argument CharNumber correspond au numéro d’un caractère ASCII.
msoVrai	L’argument CharNumber représente un caractère Unicode.

Exemple

Cet exemple montre comment insérer le symbole Marque déposée après la première phrase du premier paragraphe d’une nouvelle zone de texte se trouvant dans la première diapositive de la présentation active.

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

Voir aussi

Objet TextRange

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.