Discussion :

[nerok]

Bonjour à tous,

Je cherche quel code utiliser pour faire référence aux espaces réservés des masques des slides powerpoint

Par exemple sur une diapo de titre (ppLayoutTitle) on a une zone de texte 'Titre' et une zone de texte 'sous-titre'.
Je voudrais écrire dans ces zones mais l'enregistreur de macro les nomme 'Rectangle2' et 'Rectangle3' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select

Ca ne me paraît pas très fiable.

Y a-t-il un autre moyen de faire référence à ces espaces réservés ?

Merci

[Didier Gonard]

bonjour,
sous 2003 au moins...

3 pistes :

- voit du côté de la collection Placeholders qui représente justement les espaces réservés (cf aide pour détails).

- voit du côté de la proprièté Title, mais je ne connaît pas d'équivalent pour SubTitle (cf aide à Title)

- voit du côté name pour nommer des Shapes si besoin (cf aide à name PowerPoint puis Shape).


cordialement,

Didier

[nerok]

Merci Ormonth,
Je ne connaissais pas du tout cette collection Placeholders et ça marche nickel.

La collection 'Placeholders' représente tous les espaces réservés d'une diapo
L'espace de titre peut donc être appelé de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActivePresentation.Slides(1).Shapes.Placeholders(1).TextFrame.TextRange.Text = "This is the title text"

La propriété 'Title' est valable également (quelque soit la mise en page de la diapo)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text = "This is the title text"

Par contre, il n'y a pas d'équivalent à 'Title' pour l'espace de sous-titre. Celui-ci peut-être appelé avec la collection 'Placeholders' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActivePresentation.Slides(1).Shapes.Placeholders(2).TextFrame.TextRange.Text = "This is the subtitle text"