не может скопировать в массив диапазона - PullRequest
Новая
       19

не может скопировать в массив диапазона

0 голосов
/ 29 июня 2018

Когда я пытаюсь скопировать в массив диапазона, я получаю сообщение об ошибке во время выполнения, говорящее «объект не поддерживает это свойство или метод». Ошибка отображается в последней строке кода ниже при выполнении MyRangeArray(x).Copy. Как я могу копировать фигуры в массивах? 

'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

1 Ответ

0 голосов
/ 29 июня 2018

Попробуйте: 

 Sheets(MyRangeArray(x).Parent.Name).Shapes(MyRangeArray(x).Name).Copy
...