使用VBA从Excel复制/粘贴到PowerPoint时的定位和大小调整问题

Sub CopyExcelToPowerPoint()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim excelRange As Excel.Range
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    
    ' 打开一个PowerPoint演示文稿
    Set pptPres = pptApp.Presentations.Open("C:\Path\to\presentation.pptx")
    
    ' 在第一个幻灯片上创建一个新形状并粘贴Excel内容
    Set pptSlide = pptPres.Slides(1)
    Set pptShape = pptSlide.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
    pptShape.Select
    pptApp.CommandBars.ExecuteMso "PasteExcelTableSourceFormatting"
    
    ' 调整形状的位置和大小
    pptShape.Left = 200
    pptShape.Top = 200
    pptShape.Width = 300
    pptShape.Height = 150
    
    ' 保存并关闭PowerPoint演示文稿
    pptPres.Save
    pptPres.Close
    
    ' 释放对象
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    pptApp.Quit
    Set pptApp = Nothing
End Sub