Bonjour,

j'ai un petit script en VBA sous Excel qui me construit des shapes dans une feuille graphique (Graph1). Ensuite, je groupe toutes les shapes et je fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim Nomfic As String
Dim LocFic As String
LocFic = "c:/"
Nomfic = "test01"
ActiveSheet.Export FileName:= LocFic & NomFic & ".png", filtername:="PNG"
Jusque là pas de problème, j'ai bien un fichier PNG en sortie.
Mon soucis est comment régler la résolution du fichier de sortie qui est vraiment très mauvaise à la base.

Apparemment des options trainent pour le pdf ou quand on est sous powerpoint mais après quelques heures de recherches je suis toujours sans réponse (l'aide VBA d'Excel est d'ailleurs d'un secours plus que limité...)

Je cherche donc à régler l'export par une commande du style :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
ActiveSheet.Export FileName:= LocFic & NomFic & ".png", filtername:="PNG", Quality:=1440x1080
Merci,