Text box location changes with text decenders

I would just like to point out a particularly irritating "feature" in Designer X7 and I'm guessing that this applies to other flavours of corel as well.

I have been using VBA to generate pages and text boxes and, with artistic text, you can only position text boxes with the bottom left corner of the text box.  This, in and of it's self, is an irritating problem but could be dealt with if it weren't for the text baseline changing position as soon as you add text to the box containing a "decender" character (j,g,y,q,p).

If anyone knows how to position text without having to deal with this irritating problem I would love to hear about it.

  • You can try to check the bounding box y value of created artistic text and if different from thre required value (0 in sample code below) then move created text

    Sub test1()
    Dim st As Shape, x#, y#, w#, h#
    ActiveDocument.Unit = cdrMillimeter
    Set st = ActiveLayer.CreateArtisticText(0, 0, "Hello pqjgy", , , , 12)
    st.GetBoundingBox x, y, w, h, True
    If y < 0 Then st.Move x, -y
    End Sub