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

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

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

---

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

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

UserForm或具有Picture属性的控件）

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

单击图片项。默认情况下，将显示上图中的“（无）”

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