返回列表 上一主題 發帖

[發問] 如何寫vba改變圖表刻度

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-5-10 23:00 | 只看該作者

[發問] 如何寫vba改變圖表刻度

小弟有一圖表想寫vba的方式來指定位置來改變圖表的最大值與最小值
我該如何寫呢?

問.rar (9.95 KB)

收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2012-9-27 12:05 | 只看該作者
回復 1# dragonbx
請參考
如何應用 VBA 將股票圖完整的呈現

TOP

davidliu9116

帖子
16 
主題
0 
精華
0 
積分
22 
點名
0  
作業系統
Win7 
軟體版本
Office 2003 
閱讀權限
10 
註冊時間
2012-9-26 
最後登錄
2012-9-27 
5#
發表於 2012-9-27 11:41 | 只看該作者
原來如此設定
謝謝您的分享

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
13  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-10-25 
4#
發表於 2011-5-16 23:21 | 只看該作者
本帖最後由 luhpro 於 2011-5-16 23:22 編輯

回復 3# dragonbx

當我們需要針對多個同類型物件賦予不同的元素內容時,
就我所知有個方法算是比較容易使用的 : 使用 Dictionary 物件 -

先分別以 "表格名稱" 為鍵值來建立 dMin 與 dMax 兩個 Dictionary
dMin(表格名稱)=該圖表刻度最小值
dMax(表格名稱)=該圖表刻度最大值
如此則可用
.
.
.
  .MinimumScale = dMin(表格名稱) 與
  .MaximumScale = dMax(表格名稱)
.
.
.
來達成依表格名稱給值的目標
Dictionary用法可參考 尋找失落的座標

另外用陣列也可以做到, 只是在給值的過程中可能需要相應多次 Redim 擴充其大小比較繁瑣一些.

TOP

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
3#
發表於 2011-5-16 17:29 | 只看該作者
因為我的有許多各規格，會因為我所篩選的品名變更規格，使用巨集錄製的化無法達到我變更規格後圖表的上下界線也一並變更~~不知道該如何才可讓她依照我所指定欄位來變更上限&下限呢?
80 字節以內
不支持自定義 Discuz! 代碼

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
13  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-10-25 
2#
發表於 2011-5-11 23:23 | 只看該作者
一般來說類似你這樣的需求.
其實Excel有提供一個工具可以讓我們很快的得到變更相關數據的指令,
那就是 : "錄製新巨集", 以下是錄製出來的程式內容:
Sub Macro1()
'
' Macro1 Macro
' user 在 2011/5/11 錄製的巨集
'
'
    ActiveSheet.ChartObjects("圖表 9").Activate
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = -1400  '<----- 圖表刻度最小值
        .MaximumScale = -600   '<----- 圖表刻度最大值
        .MinorUnit = 1.8
        .MajorUnit = 100
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

圖表中的各種元素想要怎麼變更都可以經由錄製找到關鍵程式碼.

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題