Automatiser insertion image paramétrée sous Excel Fermé

Question

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

Configuration: Windows 7 / Chrome 21.0.1180.83

pijaku · Answer

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

Automatiser insertion image paramétrée sous Excel

1 réponse

Discussions similaires

Newsletters