Show a range in a shape/picture object

[John Keith]

I know I have done this before, but I cant remember how I got there...

I have a range of cells that need to be shown below another range of cells.
The Range of cells that will be shown in the shape/pic have rows and columns
that are of a different size than the ones that it will be placed on. This
is so that I can print one page landscape showing the main range and then 3
smaller ranges below.

The alternate range is diagonally down to the right of the main range so the
rows and columns can be sized to properly display the headings and allow the
correct width to show the data.

How do I create the shape/picture that refers to the alternate range of cells?
I.E. the main range is A4:O18 and over the top of A20:O26 I want to have
Q20:AD23 showing; this way the print range can be A4:O26 to show 1 page
properly formatted. The shape size will have to be tweaked to prevent any
odd stretching of the image.

 

[Peter T]

Sub test2()
Dim pic As Picture

Range("Q20:AD23").Copy

Set pic = ActiveSheet.Pictures.Paste(Link:=True)
With pic
.Left = Range("A20").Left ' or simply 0 if Col-A
.Top = Range("A20").Top
.ShapeRange.Fill.Visible = msoTrue
End With

End Sub

and over the top of A20:O26 I want to have
Q20:AD23 showing;

Are you sure you don't mean "over A20:N23", assuming all same row/col sizes.

Regards,
Peter T

 

[John Keith]

I Remembered!

Insert a picture from file.. just pick any old bmp. Then select the picture
and in the formula bar, key in the reference =O18:AD22 Then play with the
sizing to make the zoom fit the data.

 

[Tim Williams]

This is easier:

1. copy the range you need to show as a picture
2. select where you want to pasteit
3. hold down shift and select Edit > Paste picture link
4. resize and position...

Tim

 

[Tim Williams]

There's also a toolbar button for this, but you have to add it to the tool
via right-click > customize...

Commands tab > tools > camera

Tim