在VBA中，有没有办法在不干扰全局剪贴板的情况下将Excel区域复制到PowerPoint？

Sub CopyExcelRangeToPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim pptShape As Object
    Dim excelRange As Range
    Dim pptSlideIndex As Integer
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' 创建一个新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 在演示文稿中插入一个新的幻灯片
    pptSlideIndex = 1 ' 插入到第一个位置
    Set pptSlide = pptPres.Slides.Add(pptSlideIndex, 12) ' 12表示幻灯片布局
    
    ' 复制Excel区域到剪贴板
    Set excelRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    excelRange.Copy
    
    ' 在PowerPoint幻灯片中粘贴剪贴板内容
    pptSlide.Shapes.PasteSpecial DataType:=2 ' 2表示粘贴为图片
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 释放对象
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub