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 afficher le volet Sélection (ou Sélection et visibilité selon la version), et décocher les objets encombrants ! Ils ne sont alors plus affichés 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'hui1240
Hier2624
Cette semaine8889
Total depuis 20049942840

48
visiteurs actuellement en ligne