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

有没有一种方法可以将图像从工作表复制到用户图像控件？
我在包含图像的工作表上获得了一个形状。 当我select – >复制（ctrl + C）这个形状，转到UserForm1devise – > image1属性我可以做的Ctrl + V在图片的图片属性和图像粘贴从剪贴板到image1控制。
我怎样才能在运行时使用VBA？
我试过UserForm1.Image1.Picture = ActiveSheet.Shapes("Picture 1").Picture和许多类似的机器人都没有工作
我通常会得到“对象不支持这个属性或方法”或“types不匹配”

Answer 1

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

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