返回列表 上一主題 發帖

[發問] 請教VBA製圖的問題-資料標籤格式修改[已解決]

bruse

帖子
13 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
XP 
軟體版本
EXCEL2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-13 
最後登錄
2014-10-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-15 14:41 | 只看該作者

[發問] 請教VBA製圖的問題-資料標籤格式修改[已解決]

本帖最後由 bruse 於 2012-3-19 10:11 編輯

想在VBA產生折線圖後，修改折線的資料標籤格式中，字型及大小，用錄製巨集方式取得如下的程式碼。
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 12
       '省略不必要的部份
    End With
但執行巨集後，程式執行到ActiveChart.SeriesCollection(1).DataLabels.Select就出錯了，錯誤訊息如下：
執行階段錯誤'1004':
class datalabels的select 方法失敗

請教有經驗的前輩，語法要如何修改？謝謝！
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-3-15 15:22 | 只看該作者
本帖最後由 GBKEE 於 2012-3-15 15:24 編輯

回復 1# bruse
你在錄製前已有圖表的的.Activate
  1. ActiveSheet.ChartObjects("圖表 1").Activate
  2. ActiveChart.SeriesCollection(1).DataLabels.Select
複製代碼

TOP

bruse

帖子
13 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
XP 
軟體版本
EXCEL2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-13 
最後登錄
2014-10-31 
3#
發表於 2012-3-16 13:49 | 只看該作者
回復 2# GBKEE

依建議的語法加入後仍然不行，附上原始檔案，請前輩指點。
不過我的身份無法下載附件，請直接將修改後的語法貼上，謝謝！
    巨集製圖error.zip (10.02 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-3-16 16:50 | 只看該作者
回復 3# bruse
ApplyDataLabels 方法  將資料標籤套用於圖表中的某一資料點、某一數列或所有數列。
巨集中圖表的資料標籤格式 沒有設定 所以會出錯
ActiveChart.ApplyDataLabels AutoText:=True    '有設定後就可以了
ActiveChart.SeriesCollection(1).DataLabels.Select

TOP

bruse

帖子
13 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
XP 
軟體版本
EXCEL2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-13 
最後登錄
2014-10-31 
5#
發表於 2012-3-19 10:10 | 只看該作者
回復 4# GBKEE
感謝GBKEE
剛剛試過增加關鍵語法後，整段巨集就可以用了
謝謝囉！

不過這倒是第一次遇到巨集錄製無法正常執行的。

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題