Quelle que soit la version d'Office, il faudra créer autant de macros que de dégradés. Ensuite on mettra ces macros sur la barre d'outils Accès rapide ou sur un onglet.

Voici donc une macro qui ajoute un dégradé à la forme sélectionnée.

Word

Sub dégradé1()
'macro écrite par m@rina
Dim couleur1, couleur2
couleur1 = RGB(x, x, x)
couleur2 = RGB(x, x, x)
With Selection.ShapeRange(1).Fill
.ForeColor.RGB = couleur1
.BackColor.RGB = couleur2
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub

PowerPoint

Sub dégradé1()
'macro écrite par m@rina
Dim couleur1, couleur2
couleur1 = RGB(x, x, x)
couleur2 = RGB(x, x, x)
With ActiveWindow.Selection.ShapeRange.Fill
.ForeColor.RGB = couleur1
.BackColor.RGB = couleur2
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub

 

  • Vous complèterez les couleurs RGB
  • Pour TwoColorGradient, vous choisirez l'orientation du dégradé ainsi que le style du dégradé (de 1 à 4) qui correspond aux styles de la boîte de dialogue

Une fois les macros installées, il suffit de sélectionner la forme puis de cliquer sur le bouton  de la macro pour lui affecter votre dégradé.

 

NB : pour les versions récentes d'Office, la macro n'est pas forcément nécessaire. Voyez ce tuto.