I have a macro that stacks pictures below each other. The
problem I have is once the pictures extend beyond the
activewindow area I can't figure a way of getting the
screen to scroll or jump to place the most recently added
picture in focus. I don't want the screen to jump each
time an image is added but only "page" down when the most
recent images bottom extends past the view window area.

I have been messing around with determining the row and
column reference for the image that was added but I can't
seem to determine whether the image is off the screen. I
am inserting the images into column A and to top things
off I have merged all the cells in column A so that the
individual cells cannot be selected.

The following doesn't seem to work because I have merged
column A.

CurrRow = ActiveSheet.Shapes("Component1").TopLeftCell.Row
ActiveSheet.Cells(CurrRow, 1).Select
Application.Goto Reference:=Range(ActiveCell.Address),
Scroll:=True

The obvious answer is to unmerge column A.

If you don't want the users to select things on the sheet, lock the cells,
protect the sheet and set the EnableSelection property.

--
Regards,
Tom Ogilvy


"David Cuthill" wrote in message
...
I have a macro that stacks pictures below each other. The
problem I have is once the pictures extend beyond the
activewindow area I can't figure a way of getting the
screen to scroll or jump to place the most recently added
picture in focus. I don't want the screen to jump each
time an image is added but only "page" down when the most
recent images bottom extends past the view window area.

I have been messing around with determining the row and
column reference for the image that was added but I can't
seem to determine whether the image is off the screen. I
am inserting the images into column A and to top things
off I have merged all the cells in column A so that the
individual cells cannot be selected.

The following doesn't seem to work because I have merged
column A.

CurrRow = ActiveSheet.Shapes("Component1").TopLeftCell.Row
ActiveSheet.Cells(CurrRow, 1).Select
Application.Goto Reference:=Range(ActiveCell.Address),
Scroll:=True

That's to easy.

It's alway interesting when I miss the obvious.

Thanks for the help.
-----Original Message-----
The obvious answer is to unmerge column A.

If you don't want the users to select things on the
sheet, lock the cells,
protect the sheet and set the EnableSelection property.

--
Regards,
Tom Ogilvy


"David Cuthill"
wrote in message
...
I have a macro that stacks pictures below each other.
The
problem I have is once the pictures extend beyond the
activewindow area I can't figure a way of getting the
screen to scroll or jump to place the most recently
added
picture in focus. I don't want the screen to jump each
time an image is added but only "page" down when the
most
recent images bottom extends past the view window area.

I have been messing around with determining the row and
column reference for the image that was added but I
can't
seem to determine whether the image is off the screen. I
am inserting the images into column A and to top things
off I have merged all the cells in column A so that the
individual cells cannot be selected.

The following doesn't seem to work because I have merged
column A.

CurrRow = ActiveSheet.Shapes
("Component1").TopLeftCell.Row
ActiveSheet.Cells(CurrRow, 1).Select
Application.Goto Reference:=Range(ActiveCell.Address),
Scroll:=True


.

Note that the enableselection property is "transient" and you need to set it
each time the workbook is opened - you can do this in the workbook_open
event.

--
Regards,
Tom Ogilvy


"David Cuthill" wrote in message
...
That's to easy.

It's alway interesting when I miss the obvious.

Thanks for the help.
-----Original Message-----
The obvious answer is to unmerge column A.

If you don't want the users to select things on the
sheet, lock the cells,
protect the sheet and set the EnableSelection property.

--
Regards,
Tom Ogilvy


"David Cuthill"
wrote in message
...
I have a macro that stacks pictures below each other.
The
problem I have is once the pictures extend beyond the
activewindow area I can't figure a way of getting the
screen to scroll or jump to place the most recently
added
picture in focus. I don't want the screen to jump each
time an image is added but only "page" down when the
most
recent images bottom extends past the view window area.

I have been messing around with determining the row and
column reference for the image that was added but I
can't
seem to determine whether the image is off the screen. I
am inserting the images into column A and to top things
off I have merged all the cells in column A so that the
individual cells cannot be selected.

The following doesn't seem to work because I have merged
column A.

CurrRow = ActiveSheet.Shapes
("Component1").TopLeftCell.Row
ActiveSheet.Cells(CurrRow, 1).Select
Application.Goto Reference:=Range(ActiveCell.Address),
Scroll:=True


.