Bonjour,

Je sais que le sujet a été traité un nombre incalculable de fois mais rien ne semble marcher chez moi.

J'aimerais importer une image depuis mon disque dur, en fonction d'un nom, et la coller dans un zone de mon tableau. Or les images pouvant etre verticale ou horizontale, je dois redéfinir la taille de la zone selon celle de l'image, et je ne trouve pas ..

Merci d'avance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
NomImage = Test & "\" & TypePompe & ".png"
        If FichierExiste(NomImage) Then
            Dim zone As String
            If ?? Then
                zone = "F15:M26"
            Else
                zone = "F11:H32"
            End If
            Dim Shp As Shape
            Set Shp = Feuil1.Shapes.AddPicture(NomImage, msoFalse, msoCTrue, _
            ActiveSheet.Range(zone).Left, _
            ActiveSheet.Range(zone).Top, _
            ActiveSheet.Range(zone).Width, _
            ActiveSheet.Range(zone).Height)
            Importer = True
        End If