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

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

複製代碼

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

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。