Re : changement de couleur
Bonjour,
j'utilise le code suivant:
.Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=0, Top:=250, Width:=1000, Height:=300).TextFrame.TextRange.Text = Range("D7")
.Slides(1).Shapes(1).Name = "titre"
.Slides(1).Shapes("titre").Fill.ForeColor.RGB = RGB(0, 255, 0)
Il me semble que c'est toi qui l'a donné dans le forum.
En fait, j'ai utilisé la réponse à une question pour changer la couleur d'un objet diapo et avec le code précédent pour une présentation powerpoint.
Je souhaite faire le lien entre les deux de façon à réaliser un powerpoint type ou l'utilisateur pourrait choisir la couleur de l'arrière plan.
La seule solution que j'ai trouvé c'est un click droit sur l'objet pour l'ouvrir et l'enregistrer comme une présentation. Mais je préférais trouver autre chose en raison du chemin d'enregistrement...
Je ne connais pas vraiment VBA. Du coup, j'essaye de comprendre comment le code fonctionne et je cherche un peu partout des infos.
Bonne journée
Estelle