Macro : Changer image haut et pied de page
Nasheux
-
ben13.51 Messages postés 115 Statut Membre -
ben13.51 Messages postés 115 Statut Membre -
Bonjour,
Je dois créer un modèle français et anglais en Excel et j'aimerais changer les images en haut et pied de page en créant un bouton qui changerait la langue.
J'aimerais savoir si c'est possible, via une macro, de changer une image qui est présentement en haut (bas) de page par une autre.
Aussi, cette image doit-elle nécessairement être dans un répertoire ou je peux aller la chercher dans un onglet en particulier de mon classeur Excel ?
Merci de votre aide !!
Je dois créer un modèle français et anglais en Excel et j'aimerais changer les images en haut et pied de page en créant un bouton qui changerait la langue.
J'aimerais savoir si c'est possible, via une macro, de changer une image qui est présentement en haut (bas) de page par une autre.
Aussi, cette image doit-elle nécessairement être dans un répertoire ou je peux aller la chercher dans un onglet en particulier de mon classeur Excel ?
Merci de votre aide !!
3 réponses
-
Bonjour,
Les deux..
dans un fichierImage1.Picture = LoadPicture("") 'Vider l'image Image1.Picture = LoadPicture("C:\Repertoir\NomDuFichier.jpg")
Dans une autre feuilleImage1.Picture = LoadPicture("") Image1.Picture = AutreNom.Picture
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.-
Merci de ton aide, mais je ne suis pas capable d'intégrer le .Picture à mon code
Sub Mise_en_page_Fr()
ActiveSheet.PageSetup.CenterHeaderPicture.Filename = "S:\Répertoire\haut.jpg"
ActiveSheet.PageSetup.CenterFooterPicture.Filename = "S:\Répertoire\bas.jpg"
ActiveSheet.PageSetup.CenterHeader = "&G"
ActiveSheet.PageSetup.CenterFooter = "&G"
End Sub
En fait, j'aimerais insérer les images haut.jpg et bas.jpg dans un onglet et que ma macro les utilise directement au lieu d'aller toujours les chercher dans un répertoire.
lorsque j'insère haut.jpg, celui ci se nomme "Picture 1" dans mon classeur et bas.jpg "Picture 2".
Aurais-tu une piste de solution ?
-
-
Bien entendu que j'ai une piste :-)))
Ce n'est pas dans la mise en page que tu doit mettre ça mais dans le bouton qui change de langue
A+ -
Peut-être que tu peux "tricher" un peu
Tu insère toute les images de toute les langues dans ton entête et dans ton pied de page.
Tu les redimensionnes pour qu'elle fasse toutes la même taille.
Ensuite tu associe à ton bouton choix de langue ce code modifié selon ta situation :
ActiveSheet.Shapes("Picture 2").ZOrder msoBringToFront
Ça met en premier plan l'image souhaitée
Voilà... Une idée comme ça...
C'est pas très propre mais ça dit marcher et tu n'as pas besoin d'avoir tes images dans un répertoire...
Bonne année!
