返回列表 上一主題 發帖

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

[發問] 請教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:24 編輯

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

TOP

回復 2# GBKEE

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

TOP

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

TOP

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

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

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題