excel 宏 編程：選取壹個區域，要求生成兩個折線圖（前壹半生成壹個，後壹半也生成壹個），如何實現？

兩個函數選擇的是同壹數據作圖，只是生成的圖的位置不同。

sub ChartAdd1()

Range("a1:a8").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=ActiveSheet.Range("$a$1:$a$8")

ActiveChart.ChartType = xlLineMarkers

With ActiveChart.Parent

.Left = 750 '此處用以修改圖表在工作表中的位置

.Top = 3000

End With

Range("a1").Select

End Sub

Sub ChartAdd2()

Range("a1:a8").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=ActiveSheet.Range("$a$1:$a$8")

ActiveChart.ChartType = xlLineMarkers

With ActiveChart.Parent

.Left = 750

.Top = 5700

End With

End Sub