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

gog1211

下載 (46.18 KB)

2015-2-27 01:36

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

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

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

Scott090

回復 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

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

Scott090

回復 3# gog1211

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

gog1211

回復 4# Scott090
程式交易初版0228.rar (88.06 KB)

下載次數: 6

2015-2-28 02:38

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

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

感謝了~~

Scott090

回復 5# gog1211


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

1. Sub 巨集2()
   
2. '
   
3. ' 巨集2 巨集
   
4. '
   
5. 
   
6. '
   
7.     ActiveSheet.ChartObjects("圖表 6").Activate
   
8.     ActiveChart.SeriesCollection(5).Select
   
9.     With Selection.Format.Line       '線條色彩
   
10.         .Visible = msoTrue
    
11.         .ForeColor.ObjectThemeColor = msoThemeColorAccent3
    
12.         .ForeColor.TintAndShade = 0
    
13.         .ForeColor.Brightness = -0.25
    
14.         .Transparency = 0
    
15.     End With
    
16.     With Selection.Format.Line    '線條粗細
    
17.         .Visible = msoTrue
    
18.         .Weight = 1.5
    
19.     End With
    
20. End Sub

複製代碼

gog1211

回復 6# Scott090

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

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

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