W3Ask

Macro Excel pour insérer une image avec Redime

Vous souhaitez enregistrer une macro qui vous permettra d'insérer une image (située dans un répertoire de votre disque dur) dans une cellule active où vous vous trouverez. Cette image doit être redimensionnée automatiquement à la taille de la cellule initiale.

Mais aussi qu’il suive la hauteur de celle-ci et de la colonne si vous modifiez la largeur de la colonne et des lignes.

Dans ce cas, il ne sera plus nécessaire de le refaire manuellement pour chaque image à chaque changement de hauteur et de largeur de vos colonnes.

Voici une macro qui fera le travail:

Public Sub inset_picture()

Dim ficimg As Variant

    ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choose the picture")  ' choice of the file name

    ActiveSheet.Pictures.Insert(ficimg).Select ' insertion

    With Selection.ShapeRange

        .LockAspectRatio = False        ' original proportions when you resize

        .Top = ActiveCell.Top           ' cell height

        .Left = ActiveCell.Left         ' left of the cell

        .Height = ActiveCell.RowHeight  ' height of the cell

        .Width = ActiveCell.Width ' width of the cell

    End With

    With Selection

        .PrintObject = True             ' the object is printed at the same time of the document

        .Placement = xlMoveAndSize      ' way that the object is linked to the cellesmanière dont l'objet est lié aux cellules

    End With

End Sub

Articles relatifs :

Comment redimensionner une image en ligne?
https://fr.w3ask.com/redimensionner-image-ligne/

Est-il possible de redimensionner une image en ligne? Sans passer par un éditeur sur notre ordinateur, tel qu'Adobe Photoshop, qui est très ...

Redimensionner automatiquement les images dans Chrome
https://fr.w3ask.com/redimensionner-automatiquement-images-chrome/

Comment redimensionner automatiquement les images pour les adapter à l’écran du navigateur dans Chrome quand celles-ci sont toujours agrandi ...

Comment ajouter des lignes avec un code VBA dans Excel
https://fr.w3ask.com/comment-ajouter-lignes-code-vba-excel/

Si vous souhaitez ajouter automatiquement une ligne dans votre feuille Excel, vous pouvez utiliser un code VBA. L'exemple suivant ajoutera des ...

Comment convertir un nombre au temps avec Excel?
https://fr.w3ask.com/convertir-nombre-au-temps-excel/

Lorsque nous saisissons une date avec des points, existe-t-il une possibilité de la convertir automatiquement en une date avec des barres obliques, ...

Comment obtenir la valeur maximale dans Excel
https://fr.w3ask.com/obtenir-valeur-maximale-excel/

Nous avons deux colonnes, A et B, avec les villes en A et les nombres en B. Nous aimerions déterminer la valeur maximale en B, la ville avec ...