VBA : insérer automatiquement plusieurs images

Bonjour à toutes et tous,

Je me permets de faire appel à vous car après avoir chercher longuement sur internet, je n'ai pas trouvé de solution adéquate à mon problème qui est le suivant.

Je travaille dans un environnement mac et je suis à la recherche d'un code vba qui permettrait de :

  • insérer automatiquement plusieurs images (format .jpg) depuis un dossier à définir dans une feuille excel (cette insertion pourrait se faire par exemple dans les cellules de la colonne D)
  • resizer les images pour qu'elles s'adaptent à la taille des cellules

Merci d'avance pour l'aide que vous pourrez m'apporter.

Hello,

Un essai : (il faudra adapter la variable strchemin)

Sub Import_IMG()
    Dim strChemin$, StrFile$
    Dim colImgFiles As New Collection
    Dim i%
    Dim p As Object
    strChemin$ = "C:\Users\toto\Documents\image_test\"
    StrFile = Dir(strChemin$)
    Do While Len(StrFile) > 0
        colImgFiles.Add StrFile
        StrFile = Dir
    Loop
    For i = 1 To colImgFiles.Count
        Set p = ActiveSheet.Pictures.Insert(strChemin$ & colImgFiles(i))
        With p
            .Top = Cells(i, "d").Top
            .Left = Cells(i, "d").Left
            .Width = (Cells(i, "d").Offset(0, Cells(i, "d").Columns.Count).Left - Cells(i, "d").Left)
            .Height = (Cells(i, "d").Offset(Cells(i, "d").Rows.Count, 0).Top - Cells(i, "d").Top)
        End With
    Next i
    Set colImgFiles = Nothing
    Set p = Nothing
End Sub
Rechercher des sujets similaires à "vba inserer automatiquement images"