Excel-Printing Pages-Mutiple Images. Images split vs bump to next Page 1

[Randy11]

Wondering if anyone has a suggestion or solution for the above noted issue. Have a fax template built into a Woekbook. The user will paste mutiple images onto the template then print it for faxing or send via e-mail. Problem with the print is that the images will split at the page break with 1 portion of an image on one page & the balance on the next page. Am looking for a solution that would bump any image on the page break into the next page vs splitting.

 

[SkipVought]

Hi,

Not knowing how your shapes place on the sheet, which could be a factor, loop thru your shapes, setting the ROW HEIGHT, associated with the TopLeft property of each shape, to the shape HEIGHT.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

If the row height is LESS THAN the shape height, then assign the shape height to the row height.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[mscallisto]

Hey Skip nice tip, I'll have to try it.

Sam

 

[SkipVought]

As a rule it is best to align a shape with the shape's top left cell, top and left property. Otherwise you must calculate an offset within the cell from the cell's top to the shape's top (and for the left as well) and then accomodate that offset in the row height. That is what I meant by, "Not knowing how your shapes place on the sheet."

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Randy11]

Thank you for your input. Have found a solution for this. As it turns out the siz of the pictures inserted do not vary in size by very much so was able to format rows to fit no problem. Only other issue I had was deleting the inserted images which someone was so kind as to post on the internet.

Reference: DK on Mr Excel Site.
Sub DeletePiccies()
Dim xlShape As Shape

For Each xlShape In ActiveSheet.Shapes
If xlShape.Type = msoPicture Then xlShape.Delete
Next

End Sub