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

Question

是否有任何方法可以将图像从我加载到excel工作表中的对象加载到此图像框中

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

Answer 1

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

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

UserForm或具有Picture属性的控件。

确保显示“属性”窗口（按F4键不显示）。

单击图片项。默认情况下，显示＆＃34;（无）＆＃34;如上图所示。

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