vba如何将chart添加到工作表之后

通过VBA的菜单“工具”“引用”找到一个控件，在表中，控件的名称开头是microsoft，后面有一个什么office还是excel的，还有一个chart的。在窗体上用这个控件就能画柱状图了。不过你要研究一下这个控件怎么用~

先做一个窗体userform1，在窗体上放一个image控件，大小自己调整

在图表所在表格键入

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Calculate

Dim pic As Chart, frame As String

Set pic = ThisWorkbook.Worksheets("sheet1").ChartObjects("Chart 1").Chart

frame = ThisWorkbook.Path &Application.PathSeparator &"temp.gif"

pic.Export Filename:=frame, filtername:="gif"

UserForm1.Image1.Picture = LoadPicture(frame)

Application.ScreenUpdating = True

End Sub

再在表格上做一个VBA控件让UserForm1显示就可以了

Sub 显示（）

UserForm1.show

End Sub

图表二类似 自己改一下吧

---