新手问题。

Sub Test()
Dim s As Shape
Dim x As Double, y As Double
x = ActivePage.SizeWidth / 2
y = ActivePage.SizeHeight / 2
Set s = ActiveLayer.CreateArtisticText(x, y, "Some Text String" & vbCr & "With Two Lines")
s.Text.AlignProperties.Alignment = cdrCenterAlignment
With s.Text.FontProperties
.Name = "Arial"
.Size = 18
End With
End Sub
从With开始程序中没反应，用的是coreldraw2017版本，请问是什么原因。