VBA (Word): Draw Textbox with TextEffect msoTextEffectShapeArchUpCurve - vba

Question

Summary:
Using Visual Basic for Applications (VBA), I'm trying to draw a Textbox and apply the TextEffect msoTextEffectShapeArchUpCurve to it.
This works fine when drawing this in an Excel sheet, but will not work in a Word document (although it can be done in the same way using the GUI).
So I have an Excel file where the script is run from. This script creates a new Word document and draws shapes inside of it.
Example:
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objDoc.Activate
With ActiveDocument.Shapes.AddTextbox( _
msoTextOrientationHorizontal, _
50, _
50, _
200, _
200 _
)
.TextFrame.TextRange.text = "Some text to curve"
.TextEffect.PresetShape = msoTextEffectShapeArchUpCurve '<-- error
End With
Problem:
The code gives an Error 4652: Invalid type of drawing object for this command.
According to the documentation this should work. (And it can be done with the GUI, although no code is produced when recording the actions in a macro..)
Am I doing something wrong? And how can I fix this?
A screenshot of how it should look like (left) and how this is done in the GUI (right):
Note: Using AddTextEffect instead of AddTextbox is not really an option, since WordArt text is distorted compared to a textbox with the chosen effect.

Answer 1

You are using late binding (with CreateObject) so Excel does not know what msoTextEffectShapeArchUpCurve is.
It is a constant, a value, so you can just replace it with 9.

Answer 2

Unfortunately, it's still a mystery why Word won't let VBA set this text effect on textboxes, while on the other hand allowing it in the GUI. (Any help or information on that would still be greatly appreciated!)
However, there is a work around that worked for me:
Create the textbox in the Excel document and apply the text effect there (using the code from my example).
Then let VBA cut and paste the shape into the new Word document.