Appliquer la mise en forme de Police de PowerPoint Texte par programmation

Je suis en train d'utiliser VBA pour insérer du texte dans une présentation PowerPoint TextRange, je utiliser quelque chose comme ceci:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi"

Cependant, je ne peux pas comprendre comment mettre en gras, italique et souligné par programmation (je ne vois pas .RichText propriété ou quelque chose de similaire).

Ce que j'ai est une simple HTML texte en gras, italique et souligné le texte, je voudrais convertir plus.

Comment faire?

  • Je pense que je me suis adressée à tous vos soucis dans mon édité réponse ci-dessous.
  • essayer de comprendre comment obtenir votre exemple pour travailler dans mon script. Je pense que le (Start:=2, Longueur:=3) est en train de jeter hors de VBScript, bien qu'il semble fonctionner en VBA (de ma faute -- devrait avoir précisé, j'ai été à l'aide de VBScript). Semble comme il se doit le travail, bien qu'une douleur -- je souhaite qu'ils en œuvre d'une meilleure façon que cela. Nouveau une fois que je suis en mesure de le faire fonctionner en tant que de besoin. Merci
  • J'ai utilisé votre post afin de refléter qui vous êtes à l'aide de VBScript. Suis intéressé de savoir comment vous résoudre ce problème.
InformationsquelleAutor OneNerd | 2009-06-08
  1. 8

    Ceci est facilement réalisé en utilisant la TextRange's Characters, Words, Sentences, Runs et Paragraphs objets et puis c'est Font objet de mettre du Gras, souligné et Italique (parmi d'autres propriétés). Par exemple:

    Sub setTextDetails()
    Dim tr As TextRange
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange
        With tr
            .Text = "Hi There Buddy!"
            .Words(1).Font.Bold = msoTrue
            .Runs(1).Font.Italic = msoTrue
            .Paragraphs(1).Font.Underline = msoTrue
        End With
End Sub
    InformationsquelleAutor Todd Main
  2. 4

    Essayez de regarder La documentation MSDN sur le Objet TextRange. Il contient des exemples de la façon d'accéder aux propriétés de la Police de l'objet TextRange.

    EDIT: Vous pouvez accéder à des choses comme le Gras et l'Italique par programmation de cette manière:

    TextRange.Font.Bold = msoTrue

    EDIT EDIT: Il existe plusieurs méthodes par lesquelles vous pouvez uniquement sélectionner un texte dans une plage de texte. Voir la suite:

    Selon les sames de ce lien, vous pouvez sélectionner une partie du texte à l'aide de l'une de ces méthodes et de définir la police par programmation. Par exemple:

    Application.ActiveDocument.Pages(1).Shapes(2) _
.TextFrame.TextRange.Words(Start:=2, Length:=3) _
.Font.Bold = True

    Cet exemple est tiré des Paroles de la Méthode de lien.

    • aussi loin que je peux dire, que les adresses de l'ENSEMBLE de la plage de texte, pas des mots à l'intérieur de la plage de texte.
    InformationsquelleAutor Matthew Jones
  3. 3

    En plus de la réponse ci-dessus, vous devriez essayer de nommer les objets que vous allez être en train de changer, car les sélectionnant dans le milieu de la présentation pourrait faire PowerPoint agir bizarrement. Créer un nouvel objet TextRange et de le définir comme ça.

    dim mytextrange As TextRange
Set mytextrange = ActiveDocument.Pages(1).Shapes(2).TextFrame.TextRange
mytextrange.Words...
    • Ouais, je l'ai déjà le faire (il est plus facile de travailler avec des objets). Merci
    InformationsquelleAutor Andrew Scagnelli