Discussion :

[latrous99]

salutations
j'ai créé une macro qui cache les shapes d'un doc mais je veux que les shapes réapparaissent après sauvegarde
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Remove_Boxes()
    Dim aShape As Shape
    For Each aShape In ActiveDocument.Shapes
        If aShape.Type = msoTextBox Then
            aShape.Visible = False
 
        End If
    Next
End Sub

[carden752]

Bonjour,

En général, pour afficher les éléments, il te suffit de mettre la valeur True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 aShape.Visible = True

Pour faire une macro qui bascule l'affichage de visible à non visible et inversement, il est possible d'utiliser l'opérateur Not

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  aShape.Visible = Not aShape.Visible

[latrous99]

salut
merci pour votre réponse mais je souhaite que la macro s’exécute automatiquement quand on sauvegarde le fichier (save as )
si possible bien sur
et que les shapes réapparaissent une fois l'enregistrement est fait
(car le fichier comporte des zones qui sont nécessaire mais faut pas qu’elles figurent lors de l'enregistrement du rapport en format pdf )

merci

[carden752]

Bonjour,

Il faut alors intercepter l'évènement Application_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

Doc est le document concerné
SaveAsUI a la valeur True si la boite de dialogue Saveas s'affiche
Cancel permet d'annuler la sauvegarde, par défaut, il a la valeur false.

Je te laisse regarder les exemples d'utilisation des évènements.

[latrous99]

Oh merci
mais si possible une proposition de code pour mon cas car je suis un peu perdu :p

merci beaucoup