Question

必须用Excel VBA绘制图表——高手来

用VBA做N个图表(比如在Command1_Click()下)，并且要求在指定工作簿中(比如Sheet4)，还需要调节图表的位置...
不是高手的别显摆。

Answer 1

Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()
Range("C1:C16").Select '选择区域
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("C1:C16"), PlotBy _
:=xlColumns
'上面的Sheets("Sheet1").Range("C1:C16")可以用来指定工作表和相应的单元格,也可以用for next来实现多个图表的制作.
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes(1).IncrementLeft 124.5 'Shapes(1)表示第一个表格图表,后面的坐标可调
ActiveSheet.Shapes(1).IncrementTop -93.75
End Sub