Bonjour à tous,

Je dois modifier la marge de mon pied de page à 7mm afin que celui-ci s'imprime correctement sur une centaine de fichiers visio. Savez-vous comment exécuter une macro sur tous mes fichiers visio ?

Voici la macro générée par Visio quand je fais la modification manuellement sur un fichier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Macro1()
' Raccourci clavier : Ctrl+q
'
 
    'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
 
    Dim UndoScopeID1 As Long
    UndoScopeID1 = Application.BeginUndoScope("En-tête et pied de page")
    Application.ActiveDocument.HeaderLeft = ""
    Application.ActiveDocument.HeaderCenter = ""
    Application.ActiveDocument.HeaderRight = ""
    Application.ActiveDocument.HeaderMargin(visMillimeters) = 10#
    Application.ActiveDocument.FooterLeft = ""
    Application.ActiveDocument.FooterCenter = ""
    Application.ActiveDocument.FooterRight = "&f&e"
    Application.ActiveDocument.FooterMargin(visDrawingUnits) = 7#
    Application.ActiveDocument.HeaderFooterColor = 0
    Dim oFont2 As StdFont
    Set oFont2 = Application.ActiveDocument.HeaderFooterFont
    oFont2.Name = "??l"
    oFont2.Bold = False
    oFont2.Italic = False
    oFont2.Underline = False
    oFont2.Strikethrough = False
    oFont2.Weight = 400
    oFont2.Size = 8
    oFont2.CharSet = 0
    Set Application.ActiveDocument.HeaderFooterFont = oFont2
    Application.EndUndoScope UndoScopeID1, True
 
    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices
 
End Sub
Merci d'avance pour votre aide.
A bientôt