[non résolu] Modifier la résolution d'une image d'un graphe exporter

[Laosurlamontagne]

Bonjour,

J'ai trouvé le moyen d'exporter les graphes de ma feuille via une gentille petite macro trouver grace à l'inspecteur "Latoile"...

Cela marche très bien mais la résolution est absolument pourrie... Comment faire pour la modifier ?

'small nicety to ensure two-digits for better file sorting'
Function NiceFileNumber(num As Integer) As String
If num < 10 Then
NiceFileNumber = "0" & num
Else
NiceFileNumber = num
End If
End Function

'the real function'
Sub ExportAllCharts()
Dim i As Integer, exportCount As Integer
Dim fileNum As String, fileBase As String
Dim sheetObj As Worksheet
Dim chartObj As Chart

'current file location and name, with extension stripped'
fileBase = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
exportCount = 0

'First, export all charts that are in their own sheets'
For Each chartObj In ActiveWorkbook.Charts
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1

'Do the export'
chartObj.Export fileBase & "_chart" & fileNum & ".png"
Next

'Then, export all charts that are embedded inside normal sheets'
For Each sheetObj In ActiveWorkbook.Worksheets
For i = 1 To sheetObj.ChartObjects.Count
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1

'Do the export'
sheetObj.ChartObjects(i).Activate
ActiveChart.Export fileBase & "_chart" & fileNum & ".png"
Next i
Next
End Sub

Auriez-vous une idée ?

Merci !

 

[Compte Supprimé 979]

Re : [non résolu] Modifier la résolution d'une image d'un graphe exporter

Salut laosurlamontagne,

Question, le zoom de ta feuille est de combien lorsque tu exportes tes graphs ?

PS : pas besoin de mettre [non résolu]

A+

 

[Laosurlamontagne]

Re : [non résolu] Modifier la résolution d'une image d'un graphe exporter

Normal: à 100%.

J'ai remarqué que la taille de la fenêtre graphique avait une influence sur la résolution de l'image obtenue. Mais bon ; grossir à mort l'image pour en sortir une convenable est un peu fastidieux...

 

[Compte Supprimé 979]

Re : [non résolu] Modifier la résolution d'une image d'un graphe exporter

Salut,

As-tu essayé un autre filtre d'export que t'on ".png"

ActiveChart.Export FileName:="current_sales.gif", FilterName:="GIF"

ActiveChart.Export FileName:="current_sales.gif", FilterName:="JPG"

A+

 

[Laosurlamontagne]

Re : [non résolu] Modifier la résolution d'une image d'un graphe exporter

Bon, j'ai trouvé une autre approche qui ne prend pas trop de temps. J'ouvre le fichier sous Inkscape et l'exporte en bitmap dans la résolution de mon choix...

Par contre, étant une quiche compléte en VBQ, comment modifier le code ci-dessus pour que les fichiers images soient sauvegardés dans le répertoire où se trouve le classeur excel ?

Merci pour votre aide !