Problem with positioning a duplicate

[knowbodynow]

Hello,

Is the following code OK? I'm trying to create a duplicate that aligns to another object.

Sub duptoVposition()

Dim s1 As Shape
Dim y1 As Double, y2 As Double
Dim setrevoffset As String

ActiveDocument.Unit = cdrMillimeter

If ActiveDocument Is Nothing Then End
           
If ActiveSelection.Shapes.Count = 2 Then

    y1 = ActiveSelection.Shapes(1).PositionY
    y2 = ActiveSelection.Shapes(2).PositionY

    setrevoffset = y2 - y1

    Set s1 = ActiveSelection.Shapes(1).Duplicate(, setrevoffset)
    s1.CreateSelection

End If

End Sub

CorelDraw is currently duplicating the object way off the page and I don't know why.

Thanks,

Chris (Hunt)

[wOxxOm]

your code is working ok here.
I guess the problem might be in Page XY Origin location. Is it default left bottom corner?

Hi I'm new, both to this forum and to VBA. So bear with me if I ask rookie (stupid) questions.

1. The macro works for me. It aligns to the top of the "anchor" object

2. Now the questions: why is "setrevoffset" set As String instead of Double?
is the top a default reference point since none was specified?

[wOxxOm]

1. it works this way too but slower :-) declare as double is of course would be more logical :-)
2. I dunno frankly what can be the cause of malfunction, so that was just a desperate guess