Insertion image en vba

Essaie ceci, pour voir si tu a le même problème qu'avec l'ancien code:

Dim strImage As String
Dim Sh As Shape
 
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 75) 'left, top, width, heigth
 
strImage = "C:\chemin image.jpg"
Sh.Fill.UserPicture strImage

Bonjour,

j ai creer une macro vba
Pour pouvoir tenter de répondre, il nous faudrait le code de cette macro.

salut pijaku

voici une partie du code qui insert l image

Sheets("fiche").Select
     'Range("A16").Select
     ActiveSheet.Pictures.Insert( _
        "C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp"). _
        Select
    Selection.ShapeRange.IncrementLeft 380
    Selection.ShapeRange.IncrementTop 40
    Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.IncrementLeft -447
    Selection.ShapeRange.IncrementTop 225
        Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Width = 283.4645669291
    Selection.ShapeRange.Width = 396.8503937008
    Selection.ShapeRange.Width = 340.1574803

merci de ta reponse.

Bonjour,

l image s insert correctement mais une fois la feuille sauvegarder, lorsque je veut la reouvrir et que l image en question a etait suprimer du dossier
"C:\Users\Public\Documents\shared mcamx8\common\reports\IMG\Image #2.bmp",l image ne safiche plus sur la feuille comme si exel avait forcement besoin du lien.

Bonjour,

Ce que veut dire pijaku que je salue, c'est d'aller dans Développeur dans le ruban, Inserer, Image, Mode création, Propriétés et Picture et choisir une image

bonjour

Merci beaucoup vous m avez enlevé une grosse epine du pied ca fonctionne parfaitement

merci a tous