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

bruse

想在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

回復 1# bruse
你在錄製前已有圖表的的.Activate

1. ActiveSheet.ChartObjects("圖表 1").Activate
   
2. ActiveChart.SeriesCollection(1).DataLabels.Select

複製代碼

bruse

回復 2# GBKEE

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

巨集製圖問題
下載次數: 12

2012-3-16 13:47

GBKEE

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

bruse

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

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