asyncyd
asyncyd
采纳率100%
2017-12-02 12:51 阅读 2.2k
已采纳

vba读取powerpoint中的smartart里的文本

图片说明
图中的Shapes(1).GroupItems.Count=4,序号如图。
用下面的方法读取2、3、4的文本都没问题:
Debug.Print ActivePresentation.Slides(1).Shapes(1).GroupItems(2).TextFrame.TextRange.Text
Debug.Print ActivePresentation.Slides(1).Shapes(1).GroupItems(3).TextFrame.TextRange.Text
Debug.Print ActivePresentation.Slides(1).Shapes(1).GroupItems(4).TextFrame.TextRange.Text
但是GroupItems(1)中分了两段,所以读取1中的文本出错,提示“只能为单独的形状访问此成员”
Debug.Print ActivePresentation.Slides(1).Shapes(1).GroupItems(1).TextFrame.TextRange.Text
然后我用下面的代码又报错“只能为组合访问此成员”
ActivePresentation.Slides(1).Shapes(1).GroupItems(1).GroupItems.Count
也就是说Shapes(1).GroupItems(1)既不是单独的形状,又不是组合,那应该怎样取到1中的文本呢?或者用其它方法一次性取到整个幻灯片的文本也行,谢谢!

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

1条回答 默认 最新

相关推荐