第2项,我这样解决过
Forms("图表窗口").ExtendSize = New Size(T.Rows.Count * 30,0) 'T是生成图表的表格,30是个间隔数据,像素,可以根据需要调大或调小