請問如何從VBA中設定圖表中的線條色彩呢 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問如何從VBA中設定圖表中的線條色彩呢

返回列表下一主題上一主題發帖

請問如何從VBA中設定圖表中的線條色彩呢

高中生 Rank: 3 Rank: 3

帖子: 534
主題: 59
精華: 0
積分: 615
點名: 262
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-2-27 16:06 | 顯示全部帖子

回復 1# gog1211

試試看
      ActiveChart.SeriesCollection(5).Select
      With Selection
         .Format.Fill.Visible = msoTrue
         .Format.Fill.ForeColor.RGB = RGB(250, 160, 230) '從其他顏色表中可以找到色碼
         .Format.Line.Visible = msoTrue
         .Format.Line.ForeColor.RGB = RGB(250, 160, 230)
      End With

高中生 Rank: 3 Rank: 3

帖子: 534
主題: 59
精華: 0
積分: 615
點名: 262
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-2-27 22:30 | 顯示全部帖子

回復 3# gog1211

有些屬性確實遇到無法錄製，
不過線條之顏色屬性倒未見錄製不成的；方便的話請上傳檔案來試試看

高中生 Rank: 3 Rank: 3

帖子: 534
主題: 59
精華: 0
積分: 615
點名: 262
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-2-28 10:36 | 顯示全部帖子

回復 5# gog1211

以下是用你的上傳檔內的程式畫的成交量線錄製的原始碼，但就無法理解你說的無法錄製彩色

Sub 巨集2()
'
' 巨集2 巨集
'
'
ActiveSheet.ChartObjects("圖表 6").Activate
ActiveChart.SeriesCollection(5).Select
With Selection.Format.Line '線條色彩
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent3
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = -0.25
.Transparency = 0
End With
With Selection.Format.Line '線條粗細
.Visible = msoTrue
.Weight = 1.5
End With
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題