Bonjour à tous,
j'ai fait une routine d'export des graphiques d'un classeur. D'ailleurs, merci pour toutes ces sources que j'ai trouvées sur le site et qui m'ont fort aidé.
Cette routine s'exécute lors de l'appui sur un bouton "export" situé sur la feuille principale. Les graphiques sont exportés si la checkbox correspondante est cochée (celle-ci remplit une cellule située sur une autre feuille avec un booléen).
Voici la routine :
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
 
Sub select_graph()
Dim graph As Chart
Dim graph_n As Byte
Dim graph_sel As String
Dim F_file As String, ficG As String
Dim wbk As Workbook
 
Set wbk = ThisWorkbook
Application.ScreenUpdating = False
For graph_n = 1 To 10
    If Range("calcul12!S" & graph_n) = True Then 'scrupte les checkboxes
        graph_sel = Range("calcul12!R" & graph_n)
        Charts(graph_sel).Select
        Set graph = ActiveChart
        F_file = "gif"
        ficG = wbk.Path & "\" & graph.Name & "." & F_file
        graph.Export Filename:=ficG, FilterName:="gif"
    End If
Next graph_n
ficG = wbk.Path
Application.ScreenUpdating = True
Sheets("Procédure et résultats").Select
MsgBox "Les graphiques sélectionnés ont été exportés avec succès dans " & ficG, vbInformation
End Sub
Mon problème est le suivant : l'étape suivante que je voulais suivre est un import sous Word 2003. Malheureusement, quand je clique sur l'insertion d'image, le résultat n'est pas génial à l'impression : il y a énormément de pixel qui apparaissent. Après examen du gif qui est exporté, je vois que cela vient de là. J'ai essayé en jpeg mais le résultat est pire puisque mon quadrillage devient laid aussi. Y aurait-il un moyen d'améliorer cela ?

Merci d'avance de vos réponses...