怎样用VB自动使excel生成图表，并用VB来显示这个图表？ 80

我在VB里算了一些数据，想生成一个三维的图表，于是想借用Excel图表功能。（这个数组有m行、n列），最好能附上源代码！！谢谢！... 我在VB里算了一些数据，想生成一个三维的图表，于是想借用Excel图表功能。（这个数组有m行、n列），最好能附上源代码！！谢谢！展开

 我来答

2个回答

#合辑# 机票是越早买越便宜吗？

xiaobo3152
2008-11-04 · TA获得超过2988个赞

知道小有建树答主

回答量：763

采纳率：0%

帮助的人：825万

我也去答题访问个人页

关注

展开全部

Sub 图表制作()
'

'
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:H18"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
    ActiveSheet.Shapes("图表 2").IncrementLeft -129#
    ActiveSheet.Shapes("图表 2").IncrementTop -80.25
    ActiveSheet.Shapes("图表 2").ScaleWidth 1.03, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("图表 2").ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
End Sub


本回答被网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起