Vous l’avez remarqué, dans PowerPoint 2007, cette option a disparu des menus de formatage. Notez qu'elle a réapparu depuis la version 2010.
Néanmoins, voici deux solutions :
- Créez votre forme tramée dans Word (format de la forme automatique, effets de remplissage, motifs), copiez-la et collez-la dans PowerPoint. Cela fonctionne bien et vous pourrez même en faire des copier-coller dans PowerPoint, pour modifier ensuite la forme tout en gardant la trame
- L’autre solution consiste à utiliser VBA. En effet si le tramage paraît supprimé de PowerPoint 2007, il existe toujours puisqu’on peut le créer par programmation !
Ainsi, voici un exemple de macro qui remplira les formes automatiques rectangulaires d’une trame diagonale claire et les formes automatiques elliptiques d’une trame grille de points :
Sub remplissage_trame()
'macro écrite par m@rina
Dim mapresentation As Object
Dim diapo As Object, forme As Object
Set mapresentation = ActivePresentation.Slides
For Each diapo In mapresentation
For Each forme In diapo.Shapes
If forme.AutoShapeType = msoShapeOval Then 'si les formes sont des ovales
forme.Fill.Patterned Pattern:=msoPatternDottedGrid 'remplissage d'une trame grille de points
End If
If forme.AutoShapeType = msoShapeRectangle Then 'si les formes sont des rectangles
'remplissage avec une trame diagonale claire
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(2, 4))
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(212, 0, 120)
.BackColor.RGB = RGB(0, 100, 0)
End With
End If
Next forme
Next diapo
End Sub