将Excel范围作为图片粘贴到Power Point

我有以下两个代码，我正在尝试，当我从Excel运行代码时，应该将提到的范围作为图片粘贴到PowerPoint

但我真的不知道该怎么做。我在谷歌上搜索了很多，但没有发现你的帮助，我将不胜感激

Sub convertaspicture()

Application.CutCopyMode = True

Worksheets("Pivot").Range("FC3:FP35").Copy

.Pictures.Paste
End With

Application.CutCopyMode = False


End Sub


Sub CopyToPowerPoint()
 Dim PPT As Object
    Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    PPT.Presentations.Open Filename:="C:\Topline\Topline Writeup.pptx"
    Set PPT = Nothing
End Sub

接收到错误：

---

使用-方法将范围复制为图像

使用

PasteSpecial

将图像粘贴到Powerpoint演示文稿中。下面的代码给出了想法，它将图像放在第一张幻灯片上，并将其移动一点

Sub testSub()
    Const ppFileName = "C:\Topline\Topline Writeup.pptx"

    Dim PPT As Object
    Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    ' Use this if file already exists:
    ' PPT.Presentations.Open Filename:=ppFileName
    ' Use this if you want to create a new file:
    PPT.Presentations.Add
    PPT.ActivePresentation.slides.Add Index:=1, Layout:=12 

    Worksheets("Pivot").Range("FC3:FP35").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    With PPT.ActivePresentation.Slides(1)
        .Shapes.PasteSpecial
        With .Shapes(.Shapes.Count)
            .Left = 200
            .Top = 100
            .Width = 500
        End With
    End With
    ' Use this if you want to save an already existing file:
    ' PPT.ActivePresentation.Save
    ' Use this if you want to create a new file:
    PPT.ActivePresentation.SaveAs ppFileName  
    PPT.Quit
    Set PPT = Nothing

End Sub

更新：如果要创建新的PPT文件，请使用命令

添加

（而不是

打开

）和

另存为

保存文件

PPT.Presentations.Add ' <-- No filename here!
..
PPT.ActivePresentation.SaveAs  ppFileName 

---

PPT.Presentations.Add'非常感谢出现错误。我已经毫无头绪地更新了。该文件是否存在，是否为有效的Powerpoint文件，您是否有权访问该文件？你能试着在PP中手动打开它吗？我没有任何现有的PPT文件。我有excel文件，从我运行此代码，并希望excel范围将粘贴为图片到电源点。与我们将excel范围转换为PDF相同。因此，您的示例代码具有误导性。你不能打开一个不存在的文件（这不是很明显吗？）。查看我的更新非常感谢，很抱歉打扰您，但是在开始或结束时在哪里使用这个新的。你能修改一下代码吗。