vba获取艺术字类型的疑问

sky.via

首先说明问题：获取艺术字类型的.TextEffect.PresetTextEffect在艺术字的字体字号做出修改后获取的值会固定为-2，默认状态下的艺术字则能够正常获取艺术字的类型；office版本为2003；
录制的宏:
Sub 艺术字()
'
' 艺术字 Macro
' 宏在 2018-11-5 由 a 录制
'
    ActiveDocument.Shapes.AddTextEffect(msoTextEffect16, "测试" & Chr(13) & "" & Chr(10) & "", "宋体", 36#, _
        msoFalse, msoFalse, 261.75, 385.1).Select
End Sub
Sub 艺术字()
'
' 艺术字 Macro
' 宏在 2018-11-5 由 a 录制
'
    ActiveDocument.Shapes.AddTextEffect(msoTextEffect16, "测试", "黑体", 28#, _
        msoFalse, msoFalse, 270#, 299.25).Select
End Sub

loquat

经测试2010没有这个问题

sky.via

loquat 发表于 2018-11-5 12:30
经测试2010没有这个问题

非常感谢，这问题是真的叫人头大

sky.via

结案了，office03下 艺术字字体做出修改后，获取类型会被归类为未知的类型也就是-2，解决方法为先获取字体，再将艺术字字体设置为默认字体，获取艺术字类型，最后将艺术字字体设置为步骤一中获取的字体属性。