Excelで表の系列を一括設定する

またもやVBA(苦行)です．

Excelって表の系列の一括選択とかできないんですね、面倒ですねということでまた書きました． 一個一個クリックするよりはマシだと思います．

Attribute VB_Name = "Module1"
Sub test()
    Dim i As Long
 
    Application.ScreenUpdating = False
    On Error Resume Next
    
    For i = 1 To 21
        ActiveChart.SeriesCollection(i).Select
        Selection.Border.Color = RGB(0, 0, 0)
        Selection.MarkerBackgroundColor = RGB(0, 0, 0)
        Selection.MarkerForegroundColor = RGB(0, 0, 0)
    Next i
    Application.ScreenUpdating = True
End Sub

基本的に参考ページのコードをいじった感じです．
'On Error Resume Next'は初期化してないオブジェクトを操作してもエラーを起こさないって意味らしいです．

あとMSのデベロッパーセンターでメンバってつけたらだいたいほしい情報が得られることを学習した．

参考

• 複数のデータ系列の線の太さを変えたい