Zero position in new document

How to set reference point (0,0) to the top left of a corel document ?
When I create new artistic text and set its left top corner to the left top corner of the document I will not have its (the text) position set to (0,0).
What do I need to do , which settings ?
I write this post here in this section because I have such a vba code and this does not work as I said I would like

ActiveDocument.ReferencePoint = cdrTopLeft
ActiveDocument.Unit = cdrPixel

Dim s1 As Shape
Set s1 = ActiveLayer.CreateArtisticText(0, 0, "any text")
s1.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
s1.Text.Story.Paragraphs(1).Font = "Verdana"
s1.Text.Story.Paragraphs(1).Size = 12
s1.Text.Story.Paragraphs(1).Bold = True

[runflacruiser]

Hi.
Hopefully this will help. I added a little to the bottom of your code.
I used X5 for this:

Sub moveText2()


ActiveDocument.ReferencePoint = cdrTopLeft
ActiveDocument.Unit = cdrPixel
Dim x#, y#, w#, h#

Dim s1 As Shape
Set s1 = ActiveLayer.CreateArtisticText(0, 0, "any text")
s1.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
s1.text.Story.Paragraphs(1).Font = "Verdana"
s1.text.Story.Paragraphs(1).Size = 12
s1.text.Story.Paragraphs(1).Bold = True

s1.GetBoundingBox x, y, w, h
ActiveDocument.DrawingOriginY = ActivePage.SizeHeight / 2
ActiveDocument.DrawingOriginX = -(ActivePage.SizeWidth / 2)
s1.SetPosition 0, 0
End Sub

-John

It works great. Thanks a lot.

Now could you tell me how to change default font size unit from point into pixel in vba ?

Ok, I've found:

Application.ConvertUnits - converts a value between any two units
Document.ToUnits - converts any unit into the current document units (as specified by Document.Unit property)
Document.FromUnits - converts a value from the current document units into the given unit

taken from page: http://forum.oberonplace.com/archive...hp?t-1123.html

[runflacruiser]

Hi.
Yep. You beat me to it. Glad to hear it helped you.
-John