XL 2016 Macro enregistrer graphique format image

Raphsd2

XLDnaute Nouveau
Bonjour à tous,

Voilà ma difficulté. Je cherche à recréer un bouton permettant la manipulation :
  • Enregistrer un graphique en format image, GIF
  • Avoir un bouton personnaliser enregistrer le graphique en image dans le ruban personnalisé
  • Avoir ce bouton à chaque fois que j’ouvre excel

J’ai réussi à créer le code d’enregistrement du graph. Pour ce faire : une fois que j’ai le graphique, je clique droit => déplacer le graphique => nouvelle feuille

Mais problème :

(1) quand j’ouvre une nouvelle fois le fichier, je n’arrive jamais à retrouver ma macro dénommé eSauveGIF()



Mon code:

Sub SauveGIF()

Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"

ActiveChart.Export Filename:=Fname, FilterName:="GIF"

End Sub


(2) Dans le ruban, onglet accueil, j’ai un sous groupe SauveGIF, mais je n’arrive pas à le lier à ma macro

(3) Surtout, je voudrais que la simple action de cliquer sur le bouton SauvGIF me transforme mon graphique en format GIF

(4) Enfin, je voudrai que ce bouton réapparait et fonctionne quel que soit le fichier Excel ouvert.

Un grand merci d’avance
 

Pièces jointes

  • test2.xlsx
    13.8 KB · Affichages: 3

Efgé

XLDnaute Barbatruc
Bonjour
Une proposition qui ne répond pas exactement à la demande (pas de bouton)
Tu vas dans l'environnement VBE (Alt+F11)
A gauche tu as
1642587056885.png


Tu ajoutes un module au projet (clic droit sur le projet / insertion / module)
Tu colles ton code dans le module

Tu fermes Excel et tu répond "oui" au message qui t'indique que ton projet à été modifié.

A chaque ouverture d'Excel, tu retrouves ta macro en faisant Alt+F8
1642587291743.png


Cordialement
 

fanch55

XLDnaute Barbatruc
Salut,
en premier lieu, modifier le code :
VB:
Sub SauveGIF()

Fname = ActiveWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"

End Sub

Puis suivre à la lettre ce tuto :
ou comme le suggère @Efgé
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11