- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- windows xp pro
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台南市
- 註冊時間
- 2010-5-5
- 最後登錄
- 2016-6-8
|
因為權限不足 提供之前程式碼給你參考
基本上動態圖表的概念 只是刪除在畫而已
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 |
|
發表於 2011-6-10 15:28
| 