Automatiser insertion image paramétrée sous Excel
Suryakanti
Messages postés
158
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
sous Excel je souhaite insérer des images dans une même colonne, du coup j'ai mis une hauteur fixe à 50.
Seulement, j'aimerais qu'automatiquement à l'insertion, chaque image soit paramétrée pour s'adapter à la cellule en gardant ses proportions et qu'elle se rattache bien à la ligne si je fait un tri, qu'elle reste associée à la cellule donc.
Actuellement, j'arrive à insérer mon image et à faire en sorte qu'elle bouge avec la cellule et se dimensionne en fonction, le souci c'est que je dois à chaque image insérée paramétrer ça par un clic droit, une boite de dialogue... c'est beaucoup trop long.
Est il possible de rendre cette démarche automatique pour que je n'ai plus qu'à insérer l'image ? Si oui pouvez vous m'aider ?
Merci
sous Excel je souhaite insérer des images dans une même colonne, du coup j'ai mis une hauteur fixe à 50.
Seulement, j'aimerais qu'automatiquement à l'insertion, chaque image soit paramétrée pour s'adapter à la cellule en gardant ses proportions et qu'elle se rattache bien à la ligne si je fait un tri, qu'elle reste associée à la cellule donc.
Actuellement, j'arrive à insérer mon image et à faire en sorte qu'elle bouge avec la cellule et se dimensionne en fonction, le souci c'est que je dois à chaque image insérée paramétrer ça par un clic droit, une boite de dialogue... c'est beaucoup trop long.
Est il possible de rendre cette démarche automatique pour que je n'ai plus qu'à insérer l'image ? Si oui pouvez vous m'aider ?
Merci
1 réponse
-
Bonjour,
En passant par VBA, une petite macro permet d'insérer et de redimensionner une image dans la cellule active :
Depuis votre feuille de calcul Excel : tapez ALT+F11 ==> vous ouvrez l'éditeur Visual Basic Editor
Insertion/Module
Dans le module ainsi créé, copiez - collez ce code :Sub InsererImages() Dim ImageChoisie As String ImageChoisie = Application.GetOpenFilename("Images, *.jpg,Fichiers image, *.png;*.jpeg;*.tif;*.bmp;*.gif") ActiveSheet.Pictures.Insert(ImageChoisie).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 50 End Sub
Fermez la fenêtre Visual Basic Editor pour retourner dans votre feuille de calcul.
Enregistrez sous un autre nom votre fichier (au cas ou ça plante)
Testez en :
- sélectionnant la cellule devant recevoir l'image
- tapant : ALT+F8, choix : InsererImages puis exécuter
Cordialement,
Franck P
