標題: 關於 自動更新圖表 [打印本頁]

---

作者: kim595    時間: 2011-6-10 11:25     標題: 關於 自動更新圖表

早安 :) 請教前輩

有時候想再已輸入的資料前再增加一個新的數據
圖表就一動也不動

有辦法做一個自動更新的按鈕
我一按按鈕就自動更新圖表內容嗎?
[attach]6566[/attach]

---

作者: ginbow    時間: 2011-6-10 15:28

因為權限不足 提供之前程式碼給你參考
基本上動態圖表的概念 只是刪除在畫而已

Sub Chart1()
Dim ChtObj As ChartObject
Dim nRow As Integer
Dim ChartWidth As Single
Dim ChartHeight As Single
Dim ChartTop As Single
Dim ChartLeft As Single

ChartWidth = 450
ChartHeight = 250
ChartLeft = 1
ChartTop = 1
nRow = Worksheets("sheet2").Range("A65536").End(xlUp).Row

On Error Resume Next
With Worksheets("sheet1")
.Activate
.ChartObjects("Chart").Delete
End With


With Worksheets("sheet1")
    .Activate
    Set ChtObj = .ChartObjects.Add(ChartLeft, ChartTop, ChartWidth, ChartHeight)
   
End With
   
With ChtObj.Chart
  .SetSourceData Worksheets("sheet2").Range("A2:A" & CStr(nRow))
  .ChartType = xlLine
  .HasTitle = True
  .ChartTitle.Characters.Text = "成交價線形圖"
  .SeriesCollection(1).Name = "成交價"

End With


ChtObj.Name = "Chart"

End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)