Question

Excel2013 vba窗体程序如何通过image控件将工作表中得图片（不是本地照片）

Excel2013 vba窗体程序如何通过image控件将工作表中得图片（不是本地照片）
Excel2013 vba窗体程序如何通过image控件将工作表中得图片（不是本地照片）显示窗体程序中。通过一下程序老是报错，哪位大神帮我调试一下。
Private Sub UserForm_Initialize()
Dim pic As Shape,Objpic As ChartObject
Set pic = ActiveSheet.Shapes(1)
Set Objpic = ActiveSheet.ChartObjects. Add(0,0,pic.Width,pic.Height) pic.Copy
Objpic.Chart.Paste
Objpic.Chart.Export ThisWorkbook.Path & "\A.jpg"
Imagel.Picture = LoadPicture(ThisWorkbook.Path & "\A.jpg")
Imagel.PictureSizeMode = fmPictureSizeModeStretch FileSystem.Kill ThisWorkbook.Path & "\A. jpg"
Objpic.Delete
End Sub

Answer 1

Imagel.Picture =……和 Imagel.PictureSizeMode = …… 这两句中1错成 L了，在代码窗口中肉眼分辨不出来的，将点前面的L改为1即可。

Answer 2

解决了吗？兄弟