使用ActiveX Image Control

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

类似的东西。