帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: EXCEL2007
閱讀權限: 10
註冊時間: 2015-2-20
最後登錄: 2021-4-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-2-27 01:40 | 只看該作者

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

不好意思，請問板上各位大大有誰知道，如何從程式中直接設定線條色彩為填滿呢?

我已經有爬過文了，但是都找不到相關的Orz，另外我如果用巨集錄製的話，
程式碼只會出現:
ActiveChart.SeriesCollection(5).Select
Application.WindowState = xlMinimized

沒有出現與線條色彩的相關函數，希望大大可以解一下小弟的疑惑，感謝...

gog1211

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: EXCEL2007
閱讀權限: 10
註冊時間: 2015-2-20
最後登錄: 2021-4-2

7^#

發表於 2015-2-28 13:19 | 只看該作者

回復 6# Scott090

我想會不會是我版本為2007的問題呢，因為有些比較細節的程式碼好像都錄製不出來。

不過關於圖像的細節繪製，我後來有找到一些資料了，原來是我方向找錯了，我原本以為是要找圖表的部分，因該是要找圖像的部分才對Orz..

不過我也還在摸索中，希望之後能夠整理一些出來分享，謝謝大大哩。

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 249
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-14

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

6^#

發表於 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

複製代碼

TOP

gog1211

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: EXCEL2007
閱讀權限: 10
註冊時間: 2015-2-20
最後登錄: 2021-4-2

5^#

發表於 2015-2-28 02:39 | 只看該作者

回復 4# Scott090

程式交易初版0228.rar (88.06 KB)
恩恩，我這個程式主要是抓取個股的交易資料、再畫出均線與成交量疊圖，目前只有把基本的均線畫完而已，加權與指數都還沒寫，本來想說等到全部都寫完再分享在論壇上的。

不過不知道什麼時候才能完成Orz，不過我覺得我現在PO，大大因該也會看得很辛苦.. 因為最近才剛接觸vba，幾乎都是用蠻力+苦力+錄製在寫程式，而且也沒排版的習慣，希望別K太大力XD

感謝了~~

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 249
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-14

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

4^#

發表於 2015-2-27 22:30 | 只看該作者

回復 3# gog1211

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

TOP

gog1211

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: EXCEL2007
閱讀權限: 10
註冊時間: 2015-2-20
最後登錄: 2021-4-2

3^#

發表於 2015-2-27 20:23 | 只看該作者

測試OK.. 謝謝大大。
另外能再請教有什麼方式可以自己試出這個函數嗎? 因為錄製聚集好像有些指令都不會顯示，
十分感謝你。

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 249
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-14

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

2^#

發表於 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

TOP