带excelvba的滑动指示器

关于我最近做的代码，我真的需要你的帮助

在我的代码中，我试图复制数据表的图片并将其粘贴到Powerpoint的幻灯片5中。大约有20个这样的工作表，所以我将它们合并成一个代码（成功运行），但都有相同的问题。 我想要的是将复制的图片粘贴到带有数字5的文本框所在的位置，但不知何故，当我复制它时，文本框会出现在那里（所有其他幻灯片也会出现这种情况）。下图所示。 有人知道我哪里做错了吗？我真的很感谢你的帮助

Sub Copy_Picture2()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim ActiveSlide As PowerPoint.Slide

Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Visible = msoCTrue
PPApp.Presentations.Open Filename:="C:\Users\huhiuhi\Downloads\Telegram Desktop\Monthly report - final table picture.pptx"

Set PPPres = PPApp.ActivePresentation
Set ActiveSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

     Workbooks("Monthly report data.xlsm").Activate
     ActiveWorkbook.Sheets("TCH - Slide 1").Range("B4:K18").CopyPicture
     With PPPres.Slides(5)
     .Select
     .Shapes.Paste
     .Shapes(1).Select
      PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
      PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
      PPApp.ActiveWindow.Selection.ShapeRange.Left = 15.5
      PPApp.ActiveWindow.Selection.ShapeRange.Top = 62.5
        With ActiveSlide.Shapes(ActiveSlide.Shapes.Count)
          .Width = 932
          If .Width > 932 Then .Width = 932
        End With
     End With
End Sub 

我现在所拥有的：

---

嗨，欢迎来到SO。为了澄清一下，您希望将图片粘贴到文本框5中吗？从我对您当前代码的了解来看，您只是要求复制幻灯片5中的图片。您好，欢迎使用SO。为了澄清一下，您希望将图片粘贴到文本框5中吗？从我对您当前代码的了解来看，您只是要求复制幻灯片5中的图片