这句代码，写3个不就可以了？
Dim Chart1 As WinForm.Chart = Forms("窗口1").Controls("Chart1")
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart1.Image,0,0,422,258)
Dim Chart2 As WinForm.Chart = Forms("窗口1").Controls("Chart2")
s(t.rows.Count + 20,1).Value = New XLS.Picture(Chart2.Image,0,0,422,258)
Dim Chart3 As WinForm.Chart = Forms("窗口1").Controls("Chart3")
s(t.rows.Count + 40,1).Value = New XLS.Picture(Chart3.Image,0,0,422,258)
[此贴子已经被作者于2018/7/16 8:48:52编辑过]
加好友 
发短信
Post By：2018/7/16 8:48:00 [显示全部帖子]
