用于删除图表的PowerPoint VBA宏
用于删除图表的PowerPoint VBA宏
提问于 2018-01-11 22:33:13
我已经实现了一个用于删除Power Point文档中图表的VBA宏。代码如下：
Sub cleanCharts()
Dim shp As Shape
Dim sld As Slide
'Loop Through Each Slide in ActivePresentation
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
shp.Delete
End If
Next shp
Next sld
End Sub问题是:宏做了应该做的事情，但不是第一次尝试。我需要运行几次，三四次之后，所有的图表都被删除了。我第一次执行它时，只有一半的图表被删除，等等。遗漏了什么？
问候
Stack Overflow用户
发布于 2018-01-11 22:57:27
我不确定HasChart是否是您所要实现的目标的最佳选择。
如果你尝试使用Type属性呢？
If shp.Type = msoChart Then
shp.Delete
End If页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/48209481
复制相关文章
相似问题
腾讯云开发者
