返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 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

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題