VBA如何导出幻灯片中的图形和图片？

小鸟向前飞

幻灯片上有很多图形，如下图：

想导出红色标记的箭头为图形
在powerpoint中可以直接鼠标右键--另存为图片，这样这个箭头就会导出成特定格式的图片
但是使用VBA却没法单独保存这个箭头成图片，请问有什么办法可以导出吗？


跟踪宏录制，发现鼠标右键--另存为图片的宏是：

1.     ActiveWindow.Selection.SlideRange.Shapes("AutoShape 44").Select
   
2.     ActivePresentation.SaveAs FileName:="C:\Users\Administrator\Desktop\图片4.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
   

复制代码

但直接执行这两句是把幻灯片导出成一个图片了，不是幻灯片上的箭头图形。
请教了


另外，如果在幻灯片中有图片，比如个人照片之类的，有什么方法可以直接导出？

dongdonggege

1. Sub SaveShape1() '所有图形和图片
   
2. Dim Sld As Slide
   
3. Dim Shp As Shape
   
4. 'On Error Resume Next
   
5. For Each Sld In ActivePresentation.Slides
   
6. For Each Shp In Sld.Shapes
   
7. arr = Shp.Name
   
8. sr = Dir("D:\导出图片", vbDirectory)
   
9. If sr <> "" Then
   
10. Shp.Export pathName:="D:\导出图片" & arr & ".jpg", Filter:=ppShapeFormatGIF
    
11. Else
    
12. MkDir "D:\导出图片"
    
13. Shp.Export pathName:="D:\导出图片" & arr & ".jpg", Filter:=ppShapeFormatGIF
    
14. End If
    
15. Next
    
16. Next
    
17. End Sub
    
18. Sub SaveShape2() '选择其中的一个
    
19. Dim Shp As Shape
    
20. On Error Resume Next
    
21. Set Shp = ActiveWindow.Selection.ShapeRange(1)
    
22. arr = Shp.Name
    
23. sr = Dir("D:\导出图片", vbDirectory)
    
24. If sr <> "" Then
    
25. Shp.Export pathName:="D:\导出图片" & arr & ".jpg", Filter:=ppShapeFormatGIF
    
26. Else
    
27. MkDir "D:\导出图片"
    
28. Shp.Export pathName:="D:\导出图片" & arr & ".jpg", Filter:=ppShapeFormatGIF
    
29. End If
    
30. End Sub

复制代码

小鸟向前飞

dongdonggege 发表于 2016-6-19 23:43

多谢 查到之前帖子也是用的这个办法
如果有不了解的 同学可以查看下面的链接
http://club.excelhome.net/thread-242021-1-1.html

hacker85

dongdonggege 发表于 2016-6-19 23:43

这哪一句是专门针对箭头的呀？

dongdonggege

hacker85 发表于 2016-6-25 21:43
这哪一句是专门针对箭头的呀？

选择其中的一个这个”宏“，即先选择图形，再运行第2个宏。

251615789

学习了，多谢分享

leikaiyi123

在XP 03下需改为 D:\导出图片\ 才行