问题描述
我想使用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")
但是它也崩溃了...如果您有任何想法,请不要犹豫! 谢谢!
- 编辑:
解决方法
如果您不在工作表之间进行复制,则可以尝试以下代码:
'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的版本),它对我来说非常合适。