If sh.Type = msoPicture Then ' image found PicIdx = 0 ' initial value of index in Shapes collection, starts from 1 Set ThisDBSheet = Workbooks('BookName.xls').Worksheets('SheetName') ' set reference to target sheet with pasted image ' But it is not necessarily the last inde[ in whole collection ' Pasted picture has the upmost index among the PICTURE block second, make image alignment to upper-left corner of the range where the image is pasted īelow is the Function that defines the index of last pasted image in the Shapes collection: Function GetIndexPastedPicture() As Integer.first, use special procedure to find out the pasted image (the reference, or index, of it in Shapes collection).Hence, to write a universal program that works correctly either in Office 2003, or Office 2007 environment you should: Move focus to any cell/ for example as Range('A1').Select. To deselect pasted image (not to delete it by accident) you should Index of the last pasted image between the elements of IMAGE BLOCK

The last in all collection for Office 2007 images block turns out toīe BEFORE the block of controls, therefore you should search the Groupped so that first is the block of controls (Lstbox, Combobox,Įtc.) and images block is latter, so pasted image index is in fact THE PICTURES set (Type=msoPicture) in Office 2003 Shapes are Pasted image index in Shapes collection becomes the upmost BUT AMONG Image property in the collection (Name for example)

The specified range, so Selection property can be used to change the Must be done to identify the image in Shapes collection įor Office 2007 image is selected and binded to upper-left corner of You must execute realign procedure using Top and Left propertiesįor Office 2003 pasted picture IS NOR selected, so special procedure The position more left and lower, even may get the adjacent cell so

for Office 2003 pasted image is not binded exactly to upper-leftĬorner of the range if you define an alone cell the image may get.

For Paste method you must define the range where the image is to be pasted, for example (you may skip Destination parameter): Worksheets('Sheet1').Range('C1:C5').CopyĪctiveSheet.Paste Destination:=Worksheets('Sheet1').Range('D1:D5')Ī picture is inserted in the specified region, but some peculiarities exist: To move image from one sheet to another through clipboard standard methods Copy-Paste are used.

Paste image into excel cell mac