How do you insert an image stored on another sheet in the same workbook using VBA code

[iresolver]

I'm currently using this code and it works but the images will not show up if I give the file to someone else
PictureLoc = "C:\\test\active" & Range("A2").Value & ".png"

I need it to grab the image from another sheet on the same workbook like sheet2
I tried this but it didn't work
PictureLoc = "(images!A2)" & Range("A2").Value & ".png"

please could someone help me with this
thanks, guys!

 

[jolivanes]

Import it like in this example from "exceloffthegrid".
The "LinkToFile:=msoFalse" should make the difference.

Sub InsertImageToDeclaredVariable()

Dim myImage As Shape
Dim ws As Worksheet
Dim imagePath As String
Dim imgLeft As Double
Dim imgTop As Double

Set ws = ActiveSheet
imagePath = "C:\Users\marks\Documents\myImage.png"
imgLeft = ActiveCell.Left
imgTop = ActiveCell.Top

Set myImage = ws.Shapes.AddPicture( _
    Filename:=imagePath, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=imgLeft, _
    Top:=imgTop, _
    Width:=-1, _
    Height:=-1)

'Use the variable for the created image
MsgBox myImage.Name

End Sub