標題:
請問如何從VBA中設定 圖表中的線條色彩呢
[打印本頁]
作者:
gog1211
時間:
2015-2-27 01:40
標題:
請問如何從VBA中設定 圖表中的線條色彩呢
[attach]20301[/attach][attach]20301[/attach][attach]20301[/attach][attach]20301[/attach]
不好意思,請問板上各位大大有誰知道,如何從程式中直接設定線條色彩為填滿呢?
我已經有爬過文了,但是都找不到相關的Orz, 另外我如果用巨集錄製的話,
程式碼只會出現:
ActiveChart.SeriesCollection(5).Select
Application.WindowState = xlMinimized
沒有出現與線條色彩的相關函數,希望大大可以解一下小弟的疑惑,感謝...
作者:
Scott090
時間:
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
作者:
gog1211
時間:
2015-2-27 20:23
測試OK.. 謝謝大大。
另外能再請教有什麼方式可以自己試出這個函數嗎? 因為錄製聚集好像有些指令都不會顯示,
十分感謝你。
作者:
Scott090
時間:
2015-2-27 22:30
回復
3#
gog1211
有些屬性確實遇到無法錄製,
不過線條之顏色屬性倒未見錄製不成的;方便的話請上傳檔案來試試看
作者:
gog1211
時間:
2015-2-28 02:39
回復
4#
Scott090
[attach]20318[/attach]
恩恩,我這個程式主要是抓取個股的交易資料、再畫出均線與成交量疊圖,目前只有把基本的均線畫完而已,加權與指數都還沒寫,本來想說等到全部都寫完再分享在論壇上的。
不過不知道什麼時候才能完成Orz,不過我覺得我現在PO,大大因該也會看得很辛苦.. 因為最近才剛接觸vba,幾乎都是用蠻力+苦力+錄製在寫程式,而且也沒排版的習慣,希望別K太大力XD
感謝了~~
作者:
Scott090
時間:
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
複製代碼
作者:
gog1211
時間:
2015-2-28 13:19
回復
6#
Scott090
我想會不會是我版本為2007的問題呢,因為有些比較細節的程式碼好像都錄製不出來。
不過關於圖像的細節繪製,我後來有找到一些資料了,原來是我方向找錯了,我原本以為是要找圖表的部分,因該是要找圖像的部分才對Orz..
不過我也還在摸索中,希望之後能夠整理一些出來分享,謝謝大大哩。
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)