我有一个带有几个切换按钮的excel文件。当切换按钮打开并按下“计算”命令按钮时,我的activeX图像框会发生变化。但是,我将所有这些文件放在同一目录中,因此我必须将文件发送给我的员工压缩。有没有想要将它们加载到隐藏工作表上的excel工作簿中?
谢谢
答案 0 :(得分:0)
我认为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
类似的东西。