View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Set focus on graphic inserted in worksheet

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



.