I understand. my problem is that I want to go to an x and y coordinate. I
would like to be able to "locate" the object rather than "move it" if that
make sense. Say I have 3 radio buttons, 1 says "Top Left", 1 says "Bottom
Right", and the other says "Not Needed". I would like to write individual or
a single universal procedure that would locate the object in one of these
positions. Say the Not Needed is center. I know that using the increment
property, i must find out where the object is currently and move accordingly.
What would be nice is if I could just write a procedure that said:

If radio button "Top Left" is checked
Put the object at this location 20,20
If radio button "Bottom right is checked
Put the object at this location 200,200
If radio button "Not Needed" is checked
Put the object at this location 100,100

Currently, I am using the value of the radio buttons cell link to determine
the current position. It would be nice to not have to determine the current
position at all.

I tried the following on a sample sheet but keep getting the error:
Object doe not support this property or method. Can you see what I messed up?

Select Case Range("A1").Value
Case 1
PositionObject ActiveSheet.Shapes("Oval 1"), -212.25, -200
Range("A1").Value = 2
Case 2
PositionObject ActiveSheet.Shapes("Oval 1"), 212.25, 200
Range("A1").Value = 1
End Select

End Sub

Sub PositionObject(obj As Shape, ILeft As Long, ITop As Long)
obj.ShapeRange.IncrementLeft ILeft
obj.ShapeRange.IncrementTop ITop
End Sub
"Tom Ogilvy" wrote:

There are 2 properties

With ActiveSheet.Shapes("Vise")
.Left = Range("B9").Left
.Top = Range("B9").Top
End with

There is no single command that would place it over a specific cell.

The case statement or IF statements are because you want to go to different
locations based on the value in D114. Not sure how you can avoid coding
those different locations and using some type of decision construct to
determine where it goes.


--
Regards,
Tom Ogilvy


"JCanyoneer" wrote in message
...
Great idea Tom, I will try that to see if I can make it work. It would
sure
be nice if there was a property that you could set the location of an
object
though, then i wouldn't have to select a case. Thanks again!

"Tom Ogilvy" wrote:

You could write a subroutine

Select Case Range("D114").Value
Case 3
PositionObject ActiveSheet.Shapes("Vise"), -270, -111,
msoFlipHorizontal
Case 4
PositionObject ActiveSheet.Shapes("Vise"), -189, 0, msoFlipHorizontal
End Select

End Sub



Sub PostitionObject(obj as Shape, lLeft as Long, lTop as Long, lFlip as
Long)
obj.ShapeRange.IncrementLeft lLeft
obj.shapeRange.IncrementTop lTop
obj.ShapeRange.Flip lFlip
End Sub

--
Regards,
Tom Ogilvy



"JCanyoneer" wrote in message
...
I am setting up an excel sheet that will locate certain drawing
objects
based
on check boxes or radio buttions. Right now I have a lot of code that
checks
the current location of the object and then uses the IncrementLeft and
IncrementTop properties to move the object. Does anyone know a
different
way
to do this. I would like to just locate the object at a point based on
the
radio button or check box rather that having to check where it
currently
is
and adjusting the IncrementLeft and IncrementTop properties. Here is
the
code
for one of the objects I am currently using:

If Range("D114").Value = 3 Then
ActiveSheet.Shapes("Vise").Select
Selection.ShapeRange.IncrementLeft -270
Selection.ShapeRange.IncrementTop -111
Selection.ShapeRange.Flip msoFlipHorizontal
Else
If Range("D114").Value = 2 Then
ActiveSheet.Shapes("Vise").Select
Selection.ShapeRange.IncrementLeft -189
Selection.ShapeRange.Flip msoFlipHorizontal
End If
End If

This is an object with only to location possibilities. This expression
grows
larger exponentially with location possibilities and I would like to
have
one
simple expression for each location.

Thank you in advance for any help you can give me.