帖子: 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

博士班 Rank: 6 Rank: 6

帖子: 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

小學生 Rank: 1

帖子: 16
主題: 0
精華: 0
積分: 22
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2012-9-26
最後登錄: 2012-9-27

5^#

發表於 2012-9-27 11:41 | 只看該作者

原來如此設定
謝謝您的分享

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

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

中學生 Rank: 2

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

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