使用 Powerpoint 插件将文本转换为 smartart

【问题标题】：Converting text to smartart using Powerpoint addin使用 Powerpoint 插件将文本转换为 smartart
【发布时间】：2015-10-06 07:38:19
【问题描述】：

我正在开发 Powerpoint AddIn ，它将选择文本然后转换为 smartart。

我有想要转换为 SmartArt 的 textRange。是否为支持 PowerPoint 的“将文本转换为 SmartArt”功能的插件提供任何功能。

请帮忙

谢谢，凯拉斯

【问题讨论】：

【解决方案1】：

您希望使用父形状，而不是文本范围。

假设引用了 oSh 中的形状：

Call oSh.ConvertTextToSmartArt(Application.SmartArtLayouts(x))

其中 X 表示要转换为的 SmartArt 布局的索引。

这会让你知道哪个布局是哪个：

Sub ListSmartArtLayouts()

Dim x as Long

With Application.SmartArtLayouts
For x = 1 to .Count
Debug.Print .Item(x).Name
Next
Next

End Sub

【讨论】：