ActiveSheet.OLEObjects.Add(Filename:="C:\aaaaa\700 plate selection.jpg", _
        Link:=False, DisplayAsIcon:=False).Select