如何讓 Chart 物件顯示在固定的視窗位置 ?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-6-30 16:17 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-6-30 16:20 編輯

回復 1# heavydog

Sub Ex()
Dim Chart_Top As Range, Chart_Bottom As Range
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=300, Top:=75, Height:=200)
Set Chart_Top = .TopLeftCell '傳回 Range 物件，該物件代表指定物件左上角下面的儲存格
Set Chart_Bottom = .BottomRightCell '傳回 Range 物件，該物件代表物件右下角的儲存格
End With
With ActiveWindow
.ScrollRow = Chart_Top.Row '傳回或設定指定窗格或視窗最上面的列數
.ScrollColumn = Chart_Top.Column '傳回或設定指定窗格或視窗最上面的欄數
.SplitRow = Chart_Bottom.Row - Chart_Top.Row + 1 '傳回或設定將指定視窗分割成窗格處的列數 (分割線以上的列數)。
.SplitColumn = Chart_Bottom.Column - Chart_Top.Column + 1 '傳回或設定將指定視窗分割成窗格處的欗數 (分割線以上的欗數)。
.FreezePanes = True '如果分割窗格被凍結則為 True
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。