Select Excel 中的一个范围，用于粘贴来自 CATIA v5 的图片 VBA

Question

我想使用 CATIA 宏在特定单元格中添加 Excel 中的图片。不幸的是，我无法做到这一点，有时我的代码工作正常，有时它在“select”行崩溃。

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

这里是：

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

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

编辑：

抱歉，我忘记了错误：class 范围内的 select 方法失败。

Answer 1

如果您不在工作表之间复制，您可以试试这个代码：

'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 的版本），它非常适合我。

Select Excel 中的一个范围，用于粘贴来自 CATIA v5 的图片 VBA

Select a range in Excel to paste a picture from CATIA v5 VBA

vba

image

automation

catia