小吳 VBQA 程式設計討論

關於在Excel中繪圖,如何才能繪出兩條線於一個圖型,圖形已經預先放在Execl檔中,及移動圖形.程式碼如下,我沒辦法畫出兩條線,及移動圖形,感謝.
objWorksheet.ChartObjects(1).Activate
With ActiveChart
　　　　'.Name = "Graph1"
　　　　.ChartArea.Select
　　　　.PlotArea.Select
　　　　.SetSourceData Source:=Sheets("Standard").range("T5:U140" ), PlotBy:=xlColumns
　　　　.SetSourceData Source:=Sheets("Standard").range("V5:X140"), PlotBy:=xlColumns
　　　　.Axes(xlCategory).Select
　　　　.Axes(xlCategory).MinimumScale = Start
　　　　.Axes(xlCategory).MaximumScale = Stop
　　　　.Axes(xlValue).ReversePlotOrder = True
　　　　.Name("Chart1")
　　　　.Refresh
　　End With
　　
　　objWorksheet.Shapes("Chart1").Select
　　Selection.ShapeRange.IncrementTop 100
　　Selection.ShapeRange.IncrementLeft 100