- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 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
|
|
發表於 2013-6-30 11:25
| 
