Выберите диапазон в Excel, чтобы вставить изображение из CATIA v5 VBA

Я хотел бы добавить изображения в Excel в определенные ячейки с помощью макроса CATIA. К сожалению, я не могу этого добиться, иногда мой код работает нормально, а иногда вылетает в строке выбора.

(Для информации изображения сохраняются в папке, затем я вставляю их в лист, а затем хочу поместить их в нужную ячейку, вот где у меня проблема.)

Вот :

'DEFINE WHERE TO PASTE PICTURE AND PASTE
wb_BOM.Sheets(1).Shapes(i).Height = 56
wb_BOM.Sheets(1).Shapes(i).Cut
wb_BOM.Sheets(1).Range("E1").select
wb_BOM.Sheets(1).Paste

Я также пытаюсь без оператора SELECT вот так:

wb_BOM.Sheets(1).Paste Destination:=Range("E1")

Но он также разбился ... Не сомневайтесь, если у вас есть идеи! Спасибо !

  • РЕДАКТИРОВАТЬ :

Извините, я забыл об ошибке: не удалось выполнить выбор метода из класса диапазона.

Ошибка


image automation vba catia
person Macronaute    schedule 22.10.2020    source источник
comment
Вы не можете Select выбрать диапазон, если рабочий лист неактивен.   -  person BigBen    schedule 22.10.2020
comment
wb_BOM.Sheets(1).Paste Destination:=wb_BOM.Sheets(1).Range("E1") возможно (не проверено).   -  person BigBen    schedule 22.10.2020
comment
В этом случае активируйте и выберите «Ошибки» при использовании с catia, и я не знаю почему, да, я уже пробовал это с точностью книги и рабочего листа, но это тоже не сработало. В любом случае спасибо за уделенное время!   -  person Macronaute    schedule 22.10.2020

Ответы (1)


arrow_upward
1
arrow_downward

Если вы не копируете между листами, вы можете попробовать этот код:

'DEFINE WHERE TO PASTE PICTURE AND PASTE
Sheets(1).Shapes(1).Height = 56
Dim targetcell As Range
Set targetcell = Sheets(1).Range("E1")
Sheets(1).Shapes(1).Top = targetcell.Top
Sheets(1).Shapes(1).Left = targetcell.Left

Но я попробовал ваш код (версия с выбором), и у меня он отлично работает.

person Salamander Krajza    schedule 22.10.2020
comment
Если вопрос неясен, не отвечайте на него. - person Dharman; 22.10.2020
comment
Большое спасибо @salamander Krajza, все отлично работает! Извините, если я не понял, но я действительно не понимаю, почему это работает из приложения Excel, а не из Catia ... Так что не так просто объяснить. - person Macronaute; 22.10.2020