VBA Paste pictures help

[Arul.rajesh]

when i use the

ActiveSheet.Pictures.Insert("C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg").Select

It inserts the picture as a link in the file. Is there any way to embed the actual picture in the file?

 

[taurean]

If you mean Embed as an object then try like this:

Dim olePic As OLEObject
Set olePic = ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg", Link:= _
        False, DisplayAsIcon:=False)

 

[Arul.rajesh]

If you mean Embed as an object then try like this:

Dim olePic As OLEObject
Set olePic = ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg", Link:= _
        False, DisplayAsIcon:=False)

thank you very much.

 

[Arul.rajesh]

IT works but now I dont see the picture as when i simply paste the picture. but an OLE object the picture doesnt show unless double clicked on and opens in windows piture viewer

 

[taurean]

IT works but now I dont see the picture as when i simply paste the picture. but an OLE object the picture doesnt show unless double clicked on and opens in windows piture viewer

I am a bit confused. What do you want to achieve?

 

[Arul.rajesh]

when i use the

ActiveSheet.Pictures.Insert("C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg").Select

It inserts the picture as a link in the file. Is there any way to embed the actual picture in the file?

used the

activesheet.shapes.addpicture

worked like a charm

 

[Arul.rajesh]

Thanks for your help...