Discussion :

[Invité]

Bonjour à tous!

Petite question: j'aimerai, via VBA, coloriser une shape powerpoint.
Sans VBA, je le ferai via Format / Couleur / Recolorier / Vert, couleur accent. 6 claire

Je sais comment atteindre la shape voulue : Slide8.Shapes(19)

Mais je ne sais pas comment accéder aux propriétés de recolorisation.
Je suppose que c'est quelque chose dans ce genre : Slide8.Shapes(19).Fill....

Mais mes essais n'ont rien donné.

Si vous avez une idée, je suis preneur.

Merci beaucoup.

[Invité]

Bonjour,

Essayez :

Code :

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

1
2
3
4
5
6
7
 
    With ActivePresentation
          With .Slides(8).Shapes(19)
                 .Fill.ForeColor.RGB = RGB(146, 208, 80)
                 .Line.ForeColor.RGB = RGB(146, 208, 80)
          End With
    End With

Cordialement.