Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is it Possible to Find Shape at a Location (#find) for XL97?
I used the following Dave Peterson procedure to find one of ten pictures
pasted on a WS and delete it. (I modified MsgBox myShape.Name to myShape.Delete). Sub testme3() Dim myCell As Range, myShape As Shape Set myCell =Range("A1") For Each myShape In ActiveSheet.Shapes If Intersect(myShape.TopLeftCell, myCell) Is Nothing Then 'do nothing Else MsgBox myShape.Name Exit For End If Next myShape End Sub It worked on XP but not XL 97. Is there a similar procedure that will work for XL 97? I simply want to delete a picture pasted to a certain cell to avoid pasting another picture over it. Thank you. Jim Kobzeff |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Where do I find buttons to change shape to 3-D and rotate in 2007 | Excel Discussion (Misc queries) | |||
How to find out the cell location | Excel Discussion (Misc queries) | |||
find location max value in column | Excel Discussion (Misc queries) | |||
find location | Excel Programming | |||
Find Value in Array and report on Location | Excel Programming |