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

yangan

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

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


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

• ActiveWindow.Selection.SlideRange.Shapes("AutoShape 44").Select
  
• ActivePresentation.SaveAs FileName:="C:UsersAdministratorDesktop图片4.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
  

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


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

maohan

• Sub SaveShape1() '所有图形和图片
  
• Dim Sld As Slide
  
• Dim Shp As Shape
  
• 'On Error Resume Next
  
• For Each Sld In ActivePresentation.Slides
  
• For Each Shp In Sld.Shapes
  
• arr = Shp.Name
  
• sr = Dir("D:导出图片", vbDirectory)
  
• If sr <> &quot;&quot; Then
  
• Shp.Export pathName:=&quot;D:导出图片&quot; & arr & &quot;.jpg&quot;, Filter:=ppShapeFormatGIF
  
• Else
  
• MkDir &quot;D:导出图片&quot;
  
• Shp.Export pathName:=&quot;D:导出图片&quot; & arr & &quot;.jpg&quot;, Filter:=ppShapeFormatGIF
  
• End If
  
• Next
  
• Next
  
• End Sub
  
• Sub SaveShape2() '选择其中的一个
  
• Dim Shp As Shape
  
• On Error Resume Next
  
• Set Shp = ActiveWindow.Selection.ShapeRange(1)
  
• arr = Shp.Name
  
• sr = Dir(&quot;D:导出图片&quot;, vbDirectory)
  
• If sr <> &quot;&quot; Then
  
• Shp.Export pathName:=&quot;D:导出图片&quot; & arr & &quot;.jpg&quot;, Filter:=ppShapeFormatGIF
  
• Else
  
• MkDir &quot;D:导出图片&quot;
  
• Shp.Export pathName:=&quot;D:导出图片&quot; & arr & &quot;.jpg&quot;, Filter:=ppShapeFormatGIF
  
• End IfEnd Sub
  

复制代码

xiayutian

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

stanley

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

huangten

学习了，多谢分享