ConvertTextToSmartArt拒绝工作

Question

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

我使用的是

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

但是当我尝试运行此代码（或者我尝试过的任何其他变体）时，我收到了错误代码：＆＃34;运行时错误＆＃39;＆＃39;对象不支持这个属性或方法＆＃34;

使用Textboxes时，我是不是很幸运？

我是否需要使用其他命令？

我自己就是这样打砖墙。

Answer 1

使用：

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

或

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