Panic !!!!!! Paragraph text, frame height

I've made a batch over 5500 illustrations.

And they gave me the wrong font. Now alle my textframes are too small (so you can't see the text anymore).
I've made a little program to make the textframe bigger, the only problem is ..... some of my text is moving. Is ther anybody who has the same problem or now the salution to my problem ?

Sub TextFrame_groter()
Dim s As Shape
If ActiveSelection.Shapes.Count > 0 Then
For Each s In ActiveSelection.Shapes
If s.Type <> cdrTextShape Then
s.RemoveFromSelection
End If
Next s
Else
For Each s In ActivePage.FindShapes(, cdrTextShape)
s.AddToSelection
Next s
End If

For Each s In ActiveSelection.Shapes 'ActiveSelection.Shapes ' *********===== *****
On Error Resume Next
s.SizeHeight = 1.1 * s.SizeHeight
s.Sizeweight = 1.1 * s.Sizeweight

Next s
End Sub

I'know I can also convert to artistic text and back.

Thanks in advance

s.x=s.x+s.width/2*0.1
s.y=s.y+s.height/2*0.1

[Alex]

You can use ActiveDocument.ReferencePoint to set your anchor point. By default, it's upper left corner (I belive), so when you make your object larger it will expand to the right and down. If you want to make sure that the lower left corner doesn't move, then set ReferencePoint to cdrBottomLeft:

ActiveDocument.ReferencePoint = cdrBottomLeft
...
s.SetSize s.SizeWidth*1.1, s.SizeHeight*1.1

If you meant that your font gets reformatted (reflows), then it's because you make the text box wider too. You might want to change just it's height...

You also could check if there is actual text overflow, by checking Shape.Text.Overflow property and increase the text block height until there is no more overflow...

Thanks Alex,

Your salution didn't work, now all of my text is moving.
But..................

You let me think of something !
s.GetPosition Xas, Yas
s.SizeHeight = 1.1 * s.SizeHeight
s.Sizeweight = 1.1 * s.Sizeweight
s.SetPosition Xas, Yas

It was as simple as that, read the position and set it back.
Thanks for thinking with me. It really helps sometimes.

When I tried to use my script in the CorelDRaw 12 I found that method SizeHeight =100 applied to text frame which I just created at the 90 mm weight and 5 mm height works wrong: after that PositionY becomes very strange - my text frame flies away to far distance up. I don't know why. In Corel 11 this script is working properly.