[分享]将PPT中的所有Shape导出成图片（VBA中隐藏的Export方法）

Excellover

我用了一下，没有导出任何图片。

zhoujieses

版主力作，谢谢分享

648555205

请问如何将文本框、形状导出到一个图片？

我尝试如下代码不行

1. Sub SavePic()
   
2.     Dim shp As ShapeRange
   
3. '
   
4.     Set shp = ActivePresentation.Slides(1).Shapes.Range(Array("text1", "text2", "line"))
   
5.     shp.Select
   
6.    
   
7.     ActiveWindow.Selection.ShapeRange.Export ActivePresentation.Path & "/x.png", "PNG"
   
8. End Sub

复制代码

weiyingde

感觉在ppt2010中无法实现。

ning84

遍历ActivePresentation文稿中，Slides幻灯片。

遍历幻灯片中myShape形状
myShape.Export形状中的图片输出。