PowerPoint Visual Basic 另存为图片答案

【问题标题】：Powerpoint Visual Basic Save as PicturePowerPoint Visual Basic 另存为图片
【发布时间】：2020-02-27 13:41:24
【问题描述】：

我正在尝试将我正在使用 VB 在 Powerpoint 中制作的活动幻灯片另存为图片。此代码工作正常，但仅适用于幻灯片编号 (1)，如果选择了所有图像和形状，我该如何选择活动幻灯片上的所有对象（如 CTRL + A），然后将其导出为图片？

Sub Export_Image()

ActivePresentation.Slides(1).Select
Call ActiveWindow.Selection.ShapeRange(1).Export( _
"C:\ARTES\CRETA.png", ppShapeFormatPNG, 1500, 1500, ppRelativeToSlide)


End Sub

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

您正在寻找Slide.Export。

Sub ExportImage()
    ActiveWindow.View.Slide.Export FileName:="C:\ARTES\CRETA.png", _
                                   FilterName:="PNG", _
                                   ScaleWidth:=1500, _
                                   ScaleHeight:=1500
End Sub

【讨论】：