在Excel中选择一个范围以粘贴CATIA v5 VBA中的图片

如何解决在Excel中选择一个范围以粘贴CATIA v5 VBA中的图片

我想使用CATIA宏在Excel的特定单元格中添加图片。不幸的是，我无法实现这一目标，有时我的代码运行良好，有时在“选择”行崩溃。

（有关信息，图片保存在文件夹中，然后将其插入工作表中，然后将其放在正确的单元格中，这是我遇到的问题。）

是这里：

'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")

但是它也崩溃了...如果您有任何想法，请不要犹豫！谢谢！

编辑：

对不起，我忘记了错误：范围类的select方法失败。

解决方法

如果您不在工作表之间进行复制，则可以尝试以下代码：

'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

但是我尝试了您的代码（带有select的版本），它对我来说非常合适。