請問各位大大有關圖表的小問題...謝謝!!

1^# 跳轉到 »

發表於 2016-1-26 18:39 | 顯示全部帖子

回復 1# samneng

Private Sub CommandButton1_Click()
Dim c As Long
Sheets("樞紐人員分析").Activate
c = Cells(3, Columns.Count).End(xlToLeft).Column '第三列最後一筆欄號
With ActiveSheet.ChartObjects("圖表 2").Chart
.SetSourceData Source:=Union([A10:A14], [A17], Cells(10, c).Resize(5), Cells(17, c)) '選擇資料來源
.SeriesCollection(1).Name = Cells(2, c) '數列名稱
End With
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 自己害自己，莫過於亂發脾氣。