Insertion d'images ou de documents

Question

Bonsoir , j'aurais une petite question rapide , si je souhaite inserer un document de type pdf , le code suivant convient bien

Application.CutCopyMode = False
ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.DC", Link:=False, _
   DisplayAsIcon:=False).Activate
   Set Emplacement = ActiveSheet.Range("M3:S27")
   Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
   With Img.ShapeRange
            '
            .Name = "Cible"
            .LockAspectRatio = msoFalse
            .Left = Emplacement.Left
            .Top = Emplacement.Top
            .Height = Emplacement.Height
            .Width = Emplacement.Width
    End With
 Application.CutCopyMode = True

si par contre je souhaite inserer une image de type .jpg ou jpeg , par quelle instruction dois remplacer la partie "AcroExch.Document.DC" ?j'ai essayer de faire quelques recherches sans succès .

Merci pour vos suggestions .

m3ellem1 · Answer

Je ne penses pas qu'il y a un classtype pour jpeg il y a Paint.Picturenk qui fonctionne avec les BMP (bitmap) Bonne soirée...