VBA Powerpoint zone de texte alignement

Je suis à l'aide de Powerpoint 2007 et je veux programmer une macro qui en fait une zone de texte dans une diapositive.

Cependant, le texte dans la zone de texte est aligné au centre par défaut.
Je veux de l'aligner à gauche, mais je ne sais pas comment faire.
Comment puis-je changer l'alignement de cette zone de texte?

Voici mon code.

Set objPPT = CreateObject("PowerPoint.Application")
Set SQ = objPPT.Presentation

......

SQ.Slides(i + 6).Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 100).Select
objPPT.ActiveWindow.Selection.TextRange.Text = titre

OriginalL'auteur user1534778 | 2012-07-18

  1. 5

    D'abord, la sélection de rien en code ou en s'appuyant sur la sélection en cours est généralement pas une bonne pratique si seulement parce qu'il peut ralentir votre code par des ordres de grandeur.

    Au lieu de cela, quelque chose comme ceci:

    Dim oSh as Object ' if you're using late binding, as Shape if early binding

Set oSh =  SQ.Slides(i + 6).Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 600, 100)
' notice that I've removed the .Select from the end of the line above

With oSh.TextFrame
  .TextRange.Text = "something"
  .TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignLeft
End With

    OriginalL'auteur Steve Rindsberg

  2. 3

    La réponse à votre problème, je crois, dans Shape.TextFrame.TextRange les propriétés de l'objet

    oPPShape.TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignLeft

    Juste une remarque à Votre et Steve post. Si vous êtes vraiment à l'aide de ce code et les objets pour la liaison tardive, n'oubliez pas de définir les constantes de bibliothèque de PowerPoint comme msoTextOrientationHorizontal. Vous trouverez rapidement lorsque vous retirez le PPT de référence de votre projet qui constantes sont laissés de côté.
    Comme avec Excel, la distribution de votre macro pour les utilisateurs avec différentes versions est préférable de faire avec la liaison tardive où l'Office des références de produits sont indépendante de la version.

    'Bind to an existing or created instance of Microsoft Powerpoint
Dim objPPTApp As Object
On Error Resume Next
Set objPPTApp = GetObject(, "Powerpoint.Application")
If Err.Number <> 0 Then: Err.Clear: Set objPPTApp = CreateObject("Powerpoint.Application")

    Plus de la liaison tardive ici.

    OriginalL'auteur tobias