En effet, dans la version 2007, les motifs de remplissage ont disparu des menus et des boîtes de dialogue, laissant la place aux dégradés plus sophistiqués. Notez qu'ils sont revenus depuis la version 2010.

L'impression de dégradés n'est pas toujours optimale, surtout si l'on imprime en noir et blanc ou niveaux de gris.

Qu'à cela ne tienne ! SI les motifs ne sont plus accessibles directement, ils sont programmables aussi bizarre que cela puisse paraître.

Voici donc un exemple de macro qui va remplir toutes les formes ovales de la présentation avec un motif "Quadrillage en pointillé" et toutes les formes rectangulaires avec un motif "Diagonales vers le bas".

 

Sub remplissage_trame()
'macro écrite par m@rina
Dim mapresentation
Dim diapo
Dim forme
Set mapresentation = ActivePresentation.Slides
For Each diapo In mapresentation
For Each forme In diapo.Shapes
If forme.AutoShapeType = msoShapeOval Then
forme.Fill.Patterned Pattern:=msoPatternDottedGrid
End If
If forme.AutoShapeType = msoShapeRectangle Then
forme.Fill.Patterned Pattern:=msoPatternLightDownwardDiagonal
End If
Next forme
Next diapo
End Sub

 

Ce n'est qu'un exemple bien entendu. Ci-dessous,  voici toutes les constantes MsoPatternType possibles :

msoPattern10Percent 

msoPattern20Percent 

msoPattern25Percent 

msoPattern30Percent 

msoPattern40Percent 

msoPattern50Percent 

msoPattern5Percent 

msoPattern60Percent 

msoPattern70Percent 

msoPattern75Percent 

msoPattern80Percent 

msoPattern90Percent 

msoPatternDarkDownwardDiagonal 

msoPatternDarkHorizontal 

msoPatternDarkUpwardDiagonal 

msoPatternDashedDownwardDiagonal 

msoPatternDashedHorizontal 

msoPatternDashedUpwardDiagonal 

msoPatternDashedVertical 

msoPatternDiagonalBrick 

msoPatternDivot 

msoPatternDottedDiamond 

msoPatternDottedGrid 

msoPatternHorizontalBrick 

msoPatternLargeCheckerBoard 

msoPatternLargeConfetti 

msoPatternLargeGrid 

msoPatternLightDownwardDiagonal 

msoPatternLightHorizontal 

msoPatternLightUpwardDiagonal 

msoPatternLightVertical 

msoPatternMixed 

msoPatternNarrowHorizontal 

msoPatternNarrowVertical 

msoPatternOutlinedDiamond 

msoPatternPlaid 

msoPatternShingle 

msoPatternSmallCheckerBoard 

msoPatternSmallConfetti 

msoPatternSmallGrid 

msoPatternSolidDiamond 

msoPatternSphere 

msoPatternTrellis 

msoPatternWave 

msoPatternWeave 

msoPatternWideDownwardDiagonal 

msoPatternWideUpwardDiagonal 

msoPatternZigZag 

msoPatternDarkVertical 

 

Pour les couleurs vous devez utilisez les propriétés BackColor et ForeColor. Voici un exemple qui permet de remplir toutes les formes automatiques des diapos 2 et 4, avec un motif coloré :

 

Sub remplissage_sur_qq_diapos()
'macro écrite par m@rina
Dim diapo As Slide
Dim forme As Shape
Dim mapresentation

Set mapresentation = ActivePresentation.Slides.Range(Array(24))

 For Each diapo In mapresentation
 For Each forme In diapo.Shapes
    If forme.Type = msoAutoShape Then
 With forme.Fill
 .Patterned Pattern:=msoPatternDashedHorizontal
   .ForeColor.RGB = RGB(2120120)
   .BackColor.RGB = RGB(01000)
End With
End If
 Next forme
 Next diapo
End Sub

Statistiques

Aujourd'hui1425
Hier1880
Cette semaine3305
Total depuis 20049830737

45
visiteurs actuellement en ligne