Excel VBA 无法在 Office 2016 中另存为嵌入式 PowerPoint 演示文稿

excel

在使用excel VBA时，有时候我们可能需要将excel表格另存为嵌入式PowerPoint演示文稿。然而，我们发现在Office 2016中，这项操作似乎无法实现。本文将介绍这个问题，并提供一个解决方案。

在excel VBA中，我们可以使用以下代码将excel表格另存为PowerPoint演示文稿：

VBA
Sub SaveAsPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    
    ' 创建PowerPoint应用程序
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' 创建新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 创建新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, 1)
    
    ' 将excel表格复制到幻灯片中
    ActiveSheet.Copy
    pptSlide.Shapes.PasteSpecial DataType:=2  ' 2代表复制内容
    
    ' 保存演示文稿
    pptPres.SaveAs "C:\Path\To\Your\File.pptx"
    
    ' 关闭PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

然而，当我们在Office 2016中运行上述代码时，可能会遇到问题。具体来说，代码执行到 pptPres.SaveAs 这一行时会报错。这是因为在Office 2016中，我们无法将excel表格直接另存为嵌入式PowerPoint演示文稿。

为了解决这个问题，我们可以使用另一种方法来实现相同的效果。我们可以将excel表格保存为图像文件，然后将这些图像文件插入到PowerPoint演示文稿中。以下是修改后的代码：

VBA
Sub SaveAsPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim rng As Range
    Dim chartObj As ChartObject
    Dim imgFilePath As String
    
    ' 创建PowerPoint应用程序
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' 创建新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 创建新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, 1)
    
    ' 将excel表格复制到幻灯片中
    Set rng = ActiveSheet.UsedRange
    
    ' 将表格数据转换为图表
    Set chartObj = ActiveSheet.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height)
    chartObj.Chart.SetSourceData Source:=rng
    
    ' 将图表导出为图像文件
    imgFilePath = "C:\Path\To\Your\Image.png"
    chartObj.Chart.Export Filename:=imgFilePath, Filtername:="PNG"
    
    ' 将图像文件插入到幻灯片中
    pptSlide.Shapes.AddPicture FileName:=imgFilePath, LinktoFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0
    
    ' 保存演示文稿
    pptPres.SaveAs "C:\Path\To\Your\File.pptx"
    
    ' 关闭PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象
    Set chartObj = Nothing
    Set rng = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

通过使用这种方法，我们可以将excel表格保存为图像文件，并将这些图像文件插入到PowerPoint演示文稿中。这样就实现了将excel表格嵌入到PowerPoint演示文稿中的效果。

解决方案示例代码：

VBA
Sub SaveAsPowerPoint()
    ' 代码逻辑
End Sub

通过上述代码，我们可以解决在Office 2016中无法将excel表格另存为嵌入式PowerPoint演示文稿的问题。我们使用了另一种方法，将excel表格保存为图像文件，并将这些图像文件插入到PowerPoint演示文稿中。这样就能够实现我们的需求。希望这个解决方案对你有所帮助！