将嵌入图像中的图像加载到此图像框中

Question

有没有办法将图像从我加载到excel工作表中的对象加载到此图像框中，例如

    if userform1.checkbox1=True Then 
    userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Picture 1")) endif

Answer 1

找到要使用的图像，并将其复制到剪贴板。

激活VB编辑器并选择将包含图像的对象(即

UserForm或具有图片属性的控件)。

确保“属性”窗口已显示(按F4，否则不显示)。

单击图片项目。默认情况下，显示"(None)“，如上图所示。

按Ctrl+V将剪贴板上的图像粘贴到控件。