標題: 如何讓 Chart 物件顯示在固定的視窗位置 ? [打印本頁]

---

作者: heavydog    時間: 2013-6-30 11:25     標題: 如何讓 Chart 物件顯示在固定的視窗位置 ?

錄製並修改巨集如下  Set Chart_1 = ActiveSheet.ChartObjects.Add(Left:=100, Width:=300, Top:=75, Height:=200)，
問題是只要頁面一往下拉，Chart_1 就會逐漸看不到，如何讓 Chart 物件固定在視窗的某個位置?或者說如何隨著頁面下拉而改變 Chart 物件的位置在可視的範圍?
在此先謝過各位高手的指點~~thank you~~

---

作者: GBKEE    時間: 2013-6-30 16:17

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

回復 1# heavydog

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

複製代碼

---

作者: sunnyso    時間: 2013-7-1 07:58

用分割窗口來固定,妙

---

作者: handsometrowa    時間: 2013-7-1 12:27

看不是很懂，可能是圖表沒有叫出來的原因

不過真的能夠這樣子固定 很棒耶!!

感謝版主分享。

---

作者: heavydog    時間: 2013-7-1 13:21

感謝 GBKEE 超級版主的回應~~因為頁面本來就已分割凍結，看了 GBKEE 大大的教學後，發覺ScrollRow和ScrollColumn正是我需要的東西，於是在Worksheet_SelectionChange事件中將ScrollRow.ScrollColumn指給一個range，再將該range的Top,Left指給 Chart 物件，perfect~~
正是我要的..thank you~~

---

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