user_mobilelogo

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(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'hui66
Hier1047
Cette semaine13876
Ce mois8500
Total depuis 200411661227

6
visiteurs actuellement en ligne

5 juillet 2020