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

---

作者: bruse    時間: 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    時間: 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

複製代碼

---

作者: bruse    時間: 2012-3-16 13:49

回復 2# GBKEE

依建議的語法加入後仍然不行，附上原始檔案，請前輩指點。
不過我的身份無法下載附件，請直接將修改後的語法貼上，謝謝！
    [attach]10015[/attach]

---

作者: GBKEE    時間: 2012-3-16 16:50

回復 3# bruse
ApplyDataLabels 方法  將資料標籤套用於圖表中的某一資料點、某一數列或所有數列。
巨集中圖表的資料標籤格式 沒有設定 所以會出錯
ActiveChart.ApplyDataLabels AutoText:=True    '有設定後就可以了
ActiveChart.SeriesCollection(1).DataLabels.Select

---

作者: bruse    時間: 2012-3-19 10:10

回復 4# GBKEE
感謝GBKEE
剛剛試過增加關鍵語法後，整段巨集就可以用了
謝謝囉！

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)