2011-04-15 94 views
4

請查看此圖片讓我清楚的問題: enter image description here[Excel] [VBA]如何在圖形中繪製一條線?

+0

您可以嘗試發佈更高分辨率的圖形或詳細說明您的問題嗎?圖像的分辨率不會讓你的問題變得清晰。 – Jubbles 2011-04-15 15:05:24

+0

@Jubbles:我更新了,請幫忙! – hungbm06 2011-04-15 16:11:15

+1

只需使用所需的座標將第二個系列添加到繪圖。你只需要兩點。 – 2011-04-15 16:30:16

回答

4
Sub Tester() 
    Dim s, d 

    d = #4/18/2011# * 1 ''a bit of a hack, since I could figure out how to plot a date directly 
    With ActiveSheet.ChartObjects("Chart 1").Chart 'adjust to suit 

     Set s = .SeriesCollection.NewSeries() 
     With s 
      .Name = "" 
      .XValues = Array(d, d) 
      .Values = Array(90, 0) 
      .MarkerStyle = xlMarkerStyleNone 
      .Border.Color = vbRed 
     End With 

    End With 

End Sub 
0

如果你不介意工作簿中的額外的混亂,你可以填寫四個單元有以下:

4/18/11  0 
4/18/11 90 

添加有了這些數據的新圖表。如果您不希望新圖像出現在圖表圖例中,請雙擊圖例中的紅色系列名稱,然後按「刪除」。

2

Excellll的答案不完整。如果您只是簡單地將這些數據添加到LINE圖表中,那麼它將不會顯示在預期的位置。您必須將添加的系列轉換爲XY圖表系列(右鍵單擊系列,圖表類型)。

此外,您的線路在4/17和4/18之間,因此您需要在4/17上使用中午作爲X值,即4/17/11 12:00。

下面是一組有關添加行Excel圖表的文章: http://peltiertech.com/Excel/Charts/AddLine.html

而且,刪除圖例項通過選擇圖例項的文本,並按下Delete鍵來完成。這需要對圖例條目進行兩次單擊,而不是雙擊。