關於在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
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • linear
  • 將此兩行合併,就可Show兩條線
    .SetSourceData Source:=Sheets("Standard").range("T5:U140" ), PlotBy:=xlColumns
    .SetSourceData Source:=Sheets("Standard").range("V5:X140"), PlotBy:=xlColumns
    ==>.SetSourceData Source:=Sheets("Standard").range("T5:V140" ), PlotBy:=xlColumns
    不過不知道如何更改數列名稱,及移動圖表,繼續研究