Chart seriescollection色彩等屬性設定

Scott090

VBA程式繪製圖表，其中有線條及標記線條(框線) 都叫  .Format.line 沒有區別，而無法順利設定屬性
想利用鍵盤模擬來做設定；
請問哪個大大幫忙指導，謝謝

下載 (90.32 KB)

2015-4-5 13:45

1. Sub test0()
   
2.     With Application
   
3.         .Dialogs(xlDialogSeriesOptions).Show    '開啟 資料數列格式
   
4.         .SendKeys "{down 2}", True  '向下 2 次選 標記添滿
   
5.         .SendKeys "{TAB}", True     '右側選項
   
6.         .SendKeys "s", True         '實心添滿 (S)
   
7.         .SendKeys "c", True         '色彩(C)
   
8.         .SendKeys "{right 4}{down 4}~", True '彩色盤 色別選取
   
9.         .SendKeys "{TAB} 3", True   '回左側選項
   
10.         .SendKeys "{down}", True    '線條色彩
    
11.         .SendKeys "{tab}", True     '右側選項
    
12.         .SendKeys "N", True         '無線條
    
13.         .SendKeys "{tab} 2", True   '回左側 線條色彩
    
14.         .SendKeys "{down} 2", True  '向下 2 次選 標記線條色彩
    
15.         .SendKeys "{tab}", True     '右側選項
    
16.         .SendKeys "N", True         '無線條
    
17.         .SendKeys "{tab}~"          '關閉 資料數列格式
    
18.     End With
    
19. End Sub

複製代碼

Scott090

回復 1# Scott090

圖片是這一個

下載 (85.88 KB)

2015-4-5 13:59

上面程式碼只是示意說明，不能用

謝謝