XL 2016 Macro enregistrer graphique format image

  • Initiateur de la discussion Initiateur de la discussion Raphsd2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
695
Réponses
0
Affichages
1 K
Réponses
2
Affichages
567
Retour