在特殊情况下将图像从VBA插入EXCEL(=公司创办人(“Forms.image.1”)

在特殊情况下将图像从VBA插入EXCEL(=公司创办人(“Forms.image.1”),vba,excel,Vba,Excel,我将VBA中的图像插入单元格F31中的Excel With Worksheets("CheckListIndustrialisation").Pictures.Insert(image) '.Top = [F31].Top '.Left = [F31].Left '.Width = [F31].Width '.Height = [F31].Height 但我想做的是将我的图像插入到同一张excel表格中,但在一个特殊情况下插入图像,而不是F31。图像特殊情况下

我将VBA中的图像插入单元格F31中的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")
我声明并设置了对象类型,以便您知道正在处理的对象类型。
在VBA中,某些类型的对象属于某些对象集合。

您需要检查您想要处理的对象的特定类型,以便查看可用的属性和方法,从而执行正确的代码。HTH。

至少我不清楚您实际询问的是什么。也许您可以添加更多的说明或示例,使您的问题更清楚。@MichaelOryl He正在尝试插入图像控制类型的
OleObject
INCORPORER
是法语的
EMBED
我想这是我们在XL的英文版本中通常看到的。