Il existe, à partir de la version 2007, une fonctionnalité très intéressante qui permet de masquer les objets d'une diapositivie afin de ne pas être gêné lorsqu'on travaille sur d'autres objets.

Pour cela, il faut affciher le volet Sélection et visibilité, et décocher les objets encombrants ! Ils ne sont alors plus affiché sur la diapositive. Il ne faudra pas oublier de les recocher sous peine de diaporama raté !

Quelle est la solution pour tout recocher rapidement sans en oublier ?

Seule une macro fera le travail. Sans macro, travail manuel assuré :

 

Option Explicit
'macro écrite par Geo, version luxe avec comptage
Sub ToutAfficher()
Dim nb As Integer
Dim Pr As Presentation
Dim Diapo As Slide
Dim Obj As Shape
Set Pr = ActivePresentation
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", vbOKOnly, Pr.Name
Else
MsgBox "Nombre d'objets rendus visibles : " & nb, vbOKOnly, Pr.Name
End If
End Sub

 

 

Statistiques

Aujourd'hui202
Hier2666
Cette semaine7993
Total depuis 20049483253

13
visiteurs actuellement en ligne