Il existe une fonctionnalité très intéressante qui permet de masquer les objets d'une diapositive PowerPoint ou d'une page Word afin de ne pas être gêné lorsqu'on travaille sur d'autres objets.
Pour cela, il faut afficher le volet Sélection et décocher les objets encombrants ! Ils ne sont alors plus affichés. Il ne faudra pas oublier de les recocher sous peine de diaporama ou rapport raté !
Quelle est la solution pour tout recocher rapidement sans en oublier ?
Seule une macro fera le travail. Sans macro, travail manuel assuré :
Word
Notez que, dans Word, cette macro ne concerne que les objets avec habillage (shape)
Sub ToutAfficher()
Dim nb As Integer, image As Shape
For Each image In ActiveDocument.Shapes
If image.visible = msoFalse Then
nb = nb + 1
image.visible = msoTrue
End If
Next image
If nb = 0 Then
MsgBox "Terminé sans changements"
Else
MsgBox "Nombre d'objets rendus visibles : " & nb
End If
End Sub
PowerPoint
Sub ToutAfficher()
'macro écrite par Geo, version luxe avec comptage
Dim nb As Integer
Dim Pr As Presentation
Dim Diapo As Slide
Dim Obj As Shape
Set Pr = ActivePresentation
'affiche les diapos concernées dans la fenêtre Exécution du VBA
Debug.Print Pr.Name
nb = 0
For Each Diapo In Pr.Slides
Debug.Print Diapo.SlideIndex
For Each Obj In Diapo.Shapes
If Obj.Visible = msoFalse Then
nb = nb + 1
Obj.Visible = msoTrue
End If
Next Obj
Next Diapo
If nb = 0 Then
MsgBox "Terminé sans changements"
Else
MsgBox "Nombre d'objets rendus visibles : " & nb
End If
End Sub
