View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default Moving shapes around excel using vba

With the limited amount of information given, and the hand written code
snippet, can only guess maybe the row of the topleftcell is less than 1+i

Regards,
Peter T


<Evil Red Smuf wrote in message ...

Hi guys can you help?

I've written some code to move a shape around a square path using the row
and column numbers to denote when the shape should change direction.
However I've come a bit stuck! The little red circle moves around 3/4 of
the square but then pops up with an error. Here's the code where the
problem occurs:

With activesheet.shapes("RedDot")
For i = 1 to 16*d
Select Case range("A1").value
case "down"
.top = .top - .topleftcell.offset(-i).height
more stuff.....
case "left"
more stuff
End Select
Next
End With

The debug highlights the line beginning .top = .top......

There's a whole host of other movements contained later on in the code but
they all work fine, it's just that 1 line. If anyone can tell me what
I've done wrong it would make my year!


Submitted via EggHeadCafe - Software Developer Portal of Choice
How To Create a Custom IE8 Accelerator
http://www.eggheadcafe.com/tutorials...custom-ie.aspx