Chciałbym dodać zdjęcia w programie Excel w określonych komórkach przy użyciu makra CATIA. Niestety, nie mogę tego osiągnąć, kiedyś mój kod działa w porządku i kiedyś rozbija się na linii "Wybierz".

(Aby uzyskać informacje, zdjęcia są zapisywane w folderze, wkładam go w arkuszu, a następnie chcę umieścić je w odpowiedniej komórce, jest to miejsce, w którym mam problem.)

Oto ona:

'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

Spróbuję też bez wybranej stwierdzenia:

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

Ale to także rozbił ... Nie wahaj się, jeśli masz jakiś pomysł! Dzięki !

  • EDYTOWAĆ :

Przepraszam, zapomniałem o błędzie: Metoda wybierz z klasy zasięgu nie powiodła się.

Error

0
Macronaute 22 październik 2020, 15:57

1 odpowiedź

Najlepsza odpowiedź

Jeśli nie kopiujesz między arkuszami, możesz wypróbować ten kod:

'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

Ale próbowałem twojego kodu (wersja z wybraną) i działa idealnie dla mnie.

1
Dharman 22 październik 2020, 13:36