ANmarS - Search results

Excel/VBA expert since Sep 1997 (20 years 9 months)

We are moving ...

We are moving to another location, better, faster and more resources .... check it out ANmar.Systems

1 Q & A posts found in February

Feb 6

Copy pictures from sheet to another

i have two workbooks, lets say, workbook A and Library Workbook
Workbook A is where all the code has been going, Library has no code in it. My project in Workbook A needs to look up and pull a worksheet out of Library Workbook - just a direct copy. Simple enough in general, only one problem. Most of the sheets in Library Workbook have images embedded in them that dont get copied when doing a direct Workbooks(Library)Cells.Copy
i can get all of the formatting, column widths, and values/formulas, but not the images
now, there is one thing i havent tried that I think will work, but it has drawbacks...i could copy the entire sheet, not just the cells, but the sheet itself and put it in Workbook A. I think that this would work in theory, but Im reluctant to try it for one reason
I have embedded sheet code in Workbook A in the sheet that I want to be the destination for the copied library contents. The sheet code is event-based, and Id like it to stay in the code. So I was trying to paste the library contents into this sheet to retain the sheet code, where if I paste the entire sheet directly from the library, I dont get to keep the sheet code, because the library, by definition, is supposed to be (vba free)

so...Ive been chasing two different possible solutions, neither one with much luck yet.
(1) Learn how to copy cells from a worksheet with the images included
i know you can use vba to copy images, but the sheets have varying numbers of images, so theres no good way to programatically handle all sheets
shapes(1).copy, ...
might be more than one image


you still can use shapes.count and start a loop, did you tried that?
however, there might be a downside, when you copy and paste, they will all be over each other, but you can override it by using:
Sheet1.shapes(x).left = Sheet2.shapes(x).left
sheet1.shapes(x).top = sheet2.shapes(x).top
assuming copying shape from Sheet2 to Sheet1
does that make sense?

Monday 2/6/2012