在特殊情况下将图像从VBA插入EXCEL(= INCORPORER(“Forms.Image.1”;“”)

我在单元格F31插入一个图像从VBA到Excel。

With Worksheets("CheckListIndustrialisation").Pictures.Insert(image) '.Top = [F31].Top '.Left = [F31].Left '.Width = [F31].Width '.Height = [F31].Height 

但是我想要做的是将我的图像插入到同一张excel中,但是在图像的一个特殊情况下,而不是F31。 图像特例中的代码是:

 =INCORPORER("Forms.Image.1";"") 

我不知道如何改变我的代码。

你要做的是在工作表中添加一个OleObject
试试下面:

 'First add the OleOject Dim img As OLEObject, sh As Worksheet Set sh = Worksheets("CheckListIndustrialisation") Set img = sh.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _ DisplayAsIcon:=False, Left:=147, Top:=42, Width:=85.5, Height:=37.5) 'Second add image to your OleObject Dim iobj As MSForms.Image Set iobj = img.Object iobj.Picture = LoadPicture("C:\Users\User.Name\Pictures\SamplePicture.gif") 

我声明并设置了对象types,以便您知道正在处理的对象types。
在VBA中,某些types的对象属于某些对象集合。
你需要检查你想要的对象的具体types,以便查看可用的属性和方法,从而执行正确的代码。 HTH。