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 38 39 40 41 42 43 44 45 46
| k = 0 'permet de compter le nombre de graphiques passés en revue
For i = 1 To Sheets.Count 'passe en revue les onglets du fichier
Sheets(i).Activate
name_feuille = Replace(Replace(Sheets(i).Name, ",", ""), "-", "")
'Boucle pour selectionner un à un les graphiques de la feuille active et faire les modifications
For j = 1 To ActiveSheet.ChartObjects.Count
Sheets(i).ChartObjects(j).Copy 'copie le graphique sélectionné
k = k + 1 'implémente le compteur de graphiques
wdDoc.Activate 'active le fichier Word
If skew_ok = False Then
deb = wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & name_feuille).Start 'repère le début du signet concerné
fin = wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & name_feuille).End 'repère la fin du signet concerné
wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & name_feuille).Range.Select 'permet d'atteindre le signet correspondant à l'emplacement du graphique
wdApp.Selection.PasteAndFormat (wdChartPicture) 'collage du graphique en format image
If cut_def = "Azimuth" Then wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft 'met le graphique à gauche
Else
deb = wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & Ant_pos & name_feuille).Start 'repère le début du signet concerné
fin = wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & Ant_pos & name_feuille).End 'repère la fin du signet concerné
wdDoc.Bookmarks("Graph" & k & bande_utile & cut_def & Ant_pos & name_feuille).Range.Select 'permet d'atteindre le signet correspondant à l'emplacement du graphique
wdApp.Selection.PasteAndFormat (wdChartPicture) 'collage du graphique en format image
wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft 'met le graphique à gauche
End If
If cut_def = "Azimuth" Then
If k = 3 Then k = 0
Else
If k = 1 Then k = 0
End If
Next j
If cut_def = "Azimuth" Then
If skew_ok = False Then
wdDoc.Bookmarks("Tab1" & bande_utile & cut_def & name_feuille).Range.Select
Sheets(i).Range(Cells(1, 17), Cells(9, 19)).CopyPicture
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
Else
wdDoc.Bookmarks("Tab1" & bande_utile & cut_def & Ant_pos & name_feuille).Range.Select
Sheets(i).Range(Cells(1, 17), Cells(9, 19)).CopyPicture
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
End If
Else
wdDoc.Bookmarks("Tab1" & bande_utile & cut_def & name_feuille).Range.Select
Sheets(i).Range(Cells(1, 17), Cells(5, 19)).CopyPicture
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
End If
Next i |
Partager