Question

我正在尝试以编程方式创建一个按钮并添加一个嵌入其中的图像。根据我的研究，标准的Button对象（或“Form Button”）无法帮助我，因为它的格式化选项较少，所以我必须选择CommandButton选项。

经过一番调查后，我提出了以下代码：

Dim OLEbtn As Object
Set OLEbtn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=n(0), Top:=n(1), Width:=55, Height:=25)

OLEbtn.Picture = LoadPicture("c:\myfile.png")

但是，我在最后一行收到错误481：图片无效。

如果我尝试使用不同的图像，作为jpg，我会得到错误438：对象不支持此属性或方法。

任何人都可以提供任何有关原因的见解吗？

我不知道如何提供我想要加载的图像，但如果你认为需要它们，我很乐意向它们展示......

Answer 1

好吧，显然我试图设置一个只存在于名为＆＃34; Object＆＃34;的子对象上的属性，从而失败！

OLEbtn.Object.Picture = LoadPicture(pic)

制作技巧！

然而，我注意到png图像在任何情况下都不被接受，现在继续使用jpg，但如果有人知道为什么png被拒绝会很好......！

干杯

通过vba将图片嵌入CommandButton中

1 个答案: