0

我有一个带有几个切换按钮的 excel 文件。当切换按钮打开并按下“计算”命令按钮时,我的 activeX 图像框架会发生变化。但是,我将所有这些文件都放在同一个目录中,所以我必须将文件压缩后发送给我的员工。无论如何,有没有可能将它们加载到隐藏工作表上的 excel 工作簿中?

谢谢

4

1 回答 1

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

类似的东西。

于 2015-08-17T13:22:40.387 回答