Arrays 无法在范围数组中复制

Arrays 无法在范围数组中复制,arrays,excel,shapes,vba,Arrays,Excel,Shapes,Vba,当我尝试在范围数组中进行复制时,会出现运行时错误,显示“对象不支持此属性或方法”。执行MyRangeArray(x)时,错误显示在下面代码的最后一行。复制。如何复制阵列中的形状 'List of PPT Slides to Paste to MySlideArray = Array(5, 10) 'List of Excel Ranges to Copy from MyRangeArray = Array(Sheet23.Shapes.Range(Array("Group 18")), S

当我尝试在范围数组中进行复制时,会出现运行时错误,显示“对象不支持此属性或方法”。执行
MyRangeArray(x)时,错误显示在下面代码的最后一行。复制
。如何复制阵列中的形状

'List of PPT Slides to Paste to
  MySlideArray = Array(5, 10)

'List of Excel Ranges to Copy from
MyRangeArray = Array(Sheet23.Shapes.Range(Array("Group 18")), Sheet27.Shapes.Range(Array("Group 18")))

'Loop through Array data
  For x = LBound(MySlideArray) To UBound(MySlideArray)
    'Copy Excel Range
        MyRangeArray(x).Copy
尝试:


什么语言?眨眼这是Excel吗?电子表格?这是在excel VBA中。我正在尝试将excel中的形状复制到powerpoint中。
 Sheets(MyRangeArray(x).Parent.Name).Shapes(MyRangeArray(x).Name).Copy