Excel 在Powerpoint上对齐图片

我目前正在创建一个宏，它将获取一个excel文件并将其内容放入PowerPoint。 我无法将刚从excel复制并粘贴到PowerPoint中的图片对齐。下面是我用来粘贴图片并不断收到“未找到具有指定名称的项目”错误的代码。我想知道这是否是因为宏是从Excel而不是PowerPoint运行的

     Sheets("Bay du Nord").Range("E3:P9").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture

Slide2.Select
Slide2.Shapes.Paste.Name = "SamplePic"



Set Shp1 = ActiveSheet.Shapes("Textbox 13")
Set shp2 = ActiveSheet.Shapes("SamplePic")

shp2.Top = Shp1.Top

我假设“文本框3”位于幻灯片上，而不是工作表上，并且您希望将粘贴的形状与幻灯片上的“文本框3”对齐。如果是，请尝试以下操作：

Sheets("Bay du Nord").Range("E3:P9").CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture

Set shp1 = Slide2.Shapes("TextBox 3")

With Slide2
    .Shapes.Paste.Name = "SamplePic"
    With .Shapes(.Shapes.Count)
        .Top = shp1.Top
    End With
End With