
Range("j12").Activate
ActiveSheet.Pictures.Insert("G:adhocrevexecustomquerycarrello.bmp").Select |
Range("j12").Select
ActiveSheet.Pictures.Insert("G:adhocrevexecustomquerycarrello.bmp").Select
With Selection
.Left = Range("j12").Left
.Top = Range("j12").Top
End With
|
With Range("U12")
Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="G:adhocrevexecustomquerycarrello.bmp", LinkToFile:=False, SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=30, Height:=30)
End With |
