Télécharger l'article
Télécharger l'article
Il est possible dans un fichier Excel d'insérer des images dans des cellules, mais il n'existe pas de bouton ou de menu spécifique, et facile d'emploi. Cependant, cette opération est simple : il faut charger l'image, la redimensionner, puis la fixer dans sa cellule. Dans le cas d'images multiples, il existe même une petite macro qui facilite grandement l'opération.
Étapes
Télécharger l'article
-
Ouvrez votre projet dans Microsoft Excel. Une fois Excel exécuté, cliquez sur Fichier , sélectionnez Ouvrir et choisissez le projet, sinon faites un clic droit sur le fichier en question, sélectionnez Ouvrir avec , puis Excel .
-
Insérez votre image. Pour cela, cliquez en haut sur l'onglet Insertion et dans le groupe Illustrations , sur Images . Dans la boite, sélectionnez l'image en question, puis validez avec Insérer .
-
Redimensionnez votre image. L'image doit être sélectionnée en cliquant une fois dessus. Sous OUTILS IMAGE , accédez à l’onglet FORMAT et au groupe Taille .
- Entrez les mesures voulues dans les zones Hauteur et Largeur . Le redimensionnement peut se faire avec les poignées qui se trouvent sur les côtés et les angles de l'image.
-
Verrouillez l'image dans la cellule. Par défaut, une image ainsi ajoutée n'est pas vraiment affectée à la cellule. Pour que l'image reste bien dans la cellule, il faut verrouiller l'image dans la cellule.
- Faites un clic droit sur votre image, cliquez sur Format de l'image , puis sur Taille et propriétés , le 3 e symbole du haut (flèches). Dans le menu qui s'affiche, cliquez sur Propriétés , puis cochez Déplacer et dimensionner avec les cellules .
- Enregistrez une petite macrodéfinition. Si vous avez beaucoup d'images à mettre dans des cellules, enregistrez une petite macro en langage VBA qui vous facilitera le travail. Ouvrez une fenêtre de code en faisant la combinaison de touches Alt + F11 . Dans le menu Insertion , choisissez Module , puis copiez et collez le code ci-dessous :
- Appuyez sur la touche F5 pour exécuter le code. Répétez cette opération autant de fois que vous avez d'images à adapter à une cellule.
Public Sub FitPic() On Error GoTo NOT_SHAPE Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single With Selection PicWtoHRatio = .Width / .Height End With With Selection.TopLeftCell CellWtoHRatio = .Width / .RowHeight End With Select Case PicWtoHRatio / CellWtoHRatio Case Is > 1 With Selection .Width = .TopLeftCell.Width .Height = .Width / PicWtoHRatio End With Case Else With Selection .Height = .TopLeftCell.RowHeight .Width = .Height * PicWtoHRatio End With End Select With Selection .Top = .TopLeftCell.Top .Left = .TopLeftCell.Left End With Exit Sub NOT_SHAPE: MsgBox "Sélectionnez une image avant d'exécuter cette macro." End SubPublicité
Publicité
