在使用ActiveX图像控件时在excel中有.jpg文件

Question

我有一个带有几个切换按钮的excel文件。当一个切换按钮打开并且按下“计算”命令按钮时，我的activeX图像帧会改变。但是，我将所有这些文件放在同一目录中，因此我必须将文件发送给我的员工压缩。无论如何，想要将它们加载到隐藏工作表的Excel工作簿中？

谢谢

Answer 1

我认为的LoadPicture（）函数将寻找一个系统文件，所以你不希望出现这种情况。

将图片添加到工作表中的图像上。这样他们将在工作簿中。

然后右键点击您刚刚添加的图像，然后选择属性。选择图片属性并导航到您的图片文件。

您可以更改名称，让您的图片也感。所以他们不必是Image1 Image2等

然后在你的代码中设置你想改变的图片=你想要的图片。

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

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

如果您打算将它们存储在一些其他的工作，你可能需要声明一个工作表对象，并将其设置为表

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

或这样的事情可能工作。

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

就是这样的。