使用 ActiveX 图像控件时，.jpg 文件在 excel 之内

Question

我有一个带有多个切换按钮的 excel 文件。当切换按钮打开并按下 "calculate" 命令按钮时，我的 activeX 图像框架会发生变化。但是，我将所有这些文件都放在同一个目录中，因此我必须将文件压缩后发送给我的员工。有没有可能喜欢将它们加载到隐藏的 sheet 上的 excel 工作簿？

谢谢

Answer 1

我认为 LoadPicture() 函数会查找系统文件，所以您不需要那个。

将图片添加到作品的图像中sheet。这样他们就会在工作簿中。

然后右键单击刚刚添加的图像和 select 属性。 Select 图片属性并导航到您的图片文件。

您也可以更改名称以使您的图片有意义。所以他们不必是 Image1 Image2 等等

然后在您的代码中设置您要更改的图片 = 您想要的图像。

If something
    Image1.Picture = Image2.Picture
Else
    Image1.Picture = Image3.Picture
End If

此处 Image1 是根据按下计算按钮时发生的情况而变化的图片。 Image3 是您加载到工作簿中的图像之一。

如果您要将它们存储在其他作品中sheet，您可能需要声明一个作品sheet对象并将其设置为该sheet

Dim ws As Excel.Worksheet
Set ws = ActiveWorkbook.Sheets("ImageWorksheet")
Image1.Picture = ws.Image3.Picture

或类似的方法可能有效。

ActiveWorkbook.Sheets("ImageWorksheet").Image3.Picture

类似的东西。

Have .jpg files within excel when using ActiveX Image Control