VBA 将图像从工作表复制到用户窗体

Question

有没有办法在运行时将图像从工作表复制到用户窗体图像控件？
我在包含图像的工作表上得到了一个形状。当我选择 --> 复制 (ctrl + C) 这个形状，转到 UserForm1 设计 --> image1 属性时，我可以在图片属性中执行 ctrl + v image1 并且图像从剪贴板粘贴到 image1 控件。
如何在运行时使用 VBA 实现此目的？
我尝试了 UserForm1.Image1.Picture = ActiveSheet.Shapes("Picture 1").Picture许多类似的机器人都不起作用
我通常会收到“对象不支持此属性或方法”或“类型不匹配”

Answer 1

前段时间我正在寻找同样问题的解决方案。没有找到解决方案，但我找到了一个很好的解决方法:

1. 制作一个单独的表格，其中包含大量图片。将其命名为 user_form_pics。

2. 然后在表单上调用以下内容:

Me.Image1.Picture = user_form_pics.img_name11.Picture

这是在构造函数中使用它的方法:

Private Sub UserForm_Initialize()
    Me.Image1.Picture = user_form_pics.img_name11.Picture
End Sub

它有效!现在您的表单已包含 user_form_pics.img_name11

的图片

编辑:如果您需要将图表保存为图片，步骤如下:

Option Explicit

Public Sub TestMe()

    Dim chtChart    As Chart
    Dim strPath     As String

    Set chtChart = ActiveSheet.ChartObjects(1).Chart
    strPath = ThisWorkbook.Path & "\myChart.bmp"

    chtChart.Export (strPath)

    UserForm1.Show vbModeless
    UserForm1.Image1.Picture = LoadPicture(strPath)

End Sub