ConvertTextToSmartArt 拒绝工作

Question

尝试编写一个简单的 VBA 脚本来将文本框转换为 smartart 对象并遇到一些问题。

我用的线路是

ActiveWindow.Selection.ShapeRange(1).ConvertTextToSmartArt (Application.SmartArtLayouts(6))

但是当我尝试 运行 此代码（或我尝试过的任何其他变体）时，我得到错误代码："Run-time error '438': Object doesn't support this property or method"

我在将它用于文本框时运气不好吗？

我需要使用不同的命令吗？

我自己也碰壁了。

Answer 1

使用：

Call ActiveWindow.Selection.ShapeRange(1).ConvertTextToSmartArt (Application.SmartArtLayouts(6))

或

ActiveWindow.Selection.ShapeRange(1).ConvertTextToSmartArt  Application.SmartArtLayouts(6)