1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub 窗体中建图表() Dim pic As Chart, frame As String Set pic=ActiveSheet.ChartObjects(1).Chart frame=ThisWorkbook.Path & Application.PathSeparator & "temp.gif" pic.Export Filename:=frame, filtername:="gif" userform1.Picture=LoadPicture(frame) VBA.Kill frameEnd SubSub 显示窗体()userform1.Show 0End Sub
5、单击图表,立即弹出窗体,窗体中已显示当前图表。若双击窗体,窗体中的图片和工作表的数据都同步更新