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 :
Merci d'avance pour votre aide.
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
A bientôt
Partager