VBA embedding image in a worksheet (Vs. linking)

Hi All

Need your help with the following:

I have a code that pulls images into excel (in my case - excel 2010)
From what I gather, in Excel 2010 - the method I used only creates a link to the image.
Can you please help me with the proper code that will embed the images in the file (and also allow saving them with the file)?

This is the code I have been using:

thispicture = FilePath & "\" & ActiveCell.Value & ".jpg"
        Set pic = ActiveSheet.Pictures.Insert(thispicture) 


        With pic
        .ShapeRange.LockAspectRatio = msoTrue
        .Width = 230
        .Top = Range("A" & i + 2).Top + 10
        .Left = Range("A" & i + 2).Left + 10
        End With
        Set pic = Nothing

I am looking for something that will work in Excel 2007-2013 the same way.

BTW, I wanted to declare "thispicture" but didn't know the what to declare it as. Any suggestions?

TIA

Re: VBA embedding image in a worksheet (Vs. linking)

Quote from Kenneth Hobson;775461

Use Shapes.AddPicture.

e.g.

Code

Sub Main()
    Dim pic As Variant, r As Range
    Dim s As Shape
     ActiveSheet.Unprotect     
    pic = Application.GetOpenFilename()
    On Error Resume Next
    If pic = False Then Exit Sub     
    Set r = Range("C2")      
    Set s = ActiveSheet.Shapes.AddPicture(pic, _
      msoFalse, msoCTrue, r.Left, r.Top, r.Width, r.RowHeight)    
    ActiveSheet.Protect
End Sub

Display More

Kenneth, thanks for the code. I really appreciate your reply but I am still lost. I must admit I was hoping for something a bit more correlating to MY code (sorry for not being clear about that).
I have no doubt that what you posted "does the job" of embedding a picture, but it is almost a totally different code than mine, and I am not sure how to adopt it to my needs.
It is imperative that I keep the variables I am using (the way I get the picture name and path, the position and the size, the locked aspect ratio, etc.).
Anything along those lines will be most helpful.

Re: VBA embedding image in a worksheet (Vs. linking)

Quote from cytop;775462

ThisPicture contains a file name so should be declared as a String.

:cheers: Thanks