Skapa nytt bildobjekt med kod i Excel?

Hej

Har fått hjälp tidigare här med att flytta objekt i ett excelblad med hjälp av kod, men vad jag vill göra nu är att skapa ett nytt bildobjekt i ett excelobjekt för att sedan kunna flytta detta??

Mvh

Typ såhär?

sub bild()
ActiveSheet.OLEObjects.Add(ClassType:="Paint.Picture", Link:=False, _
DisplayAsIcon:=False).Activate
end sub

eller såhär?

Sub Macro2()
Range("A1").Select
ActiveSheet.Pictures.Insert( _
"sökväg")
End Sub