[[20100222084720]]　『折れ線グラフの線スタイルを一括変更』（NU-ON）　ページの最後に飛ぶ

『折れ線グラフの線スタイルを一括変更』（NU-ON）
系列数が50程度ある折れ線グラフを書いています．
全ての線を細く（0.25p程度に）したいのですが，線を一つずつ選択しなければ変更できません．一括して線を細くする方法はあるでしょうか？Excel2007，WinXPを使用しています．

 正直詳しくわかりませんが、テストしたところ私の場合動きました。

 Sub 線を細く()
 Application.ScreenUpdating = False

 ActiveSheet.ChartObjects("グラフ 2").Activate        'グラフ 2に対して行うので、適宜変更してください。
 For i = 1 To ActiveChart.SeriesCollection.Count
    With ActiveChart.SeriesCollection(i)
        .Border.Weight = xlThin             '線の太さ
        .Border.LineStyle = xlContinuous    '線のスタイル
    End With
 Next

 Application.ScreenUpdating = True
 End Sub

 グラフが複数ある場合グラフ1に対して処理してしまうので気を付けてください。
 グラフの名前を調べるには、対象グラフを選択すると、数式バーの左にある名前ウィンドウに
 名前がでてくるので、それをコピーして貼り付けるとよいかと思います。

 （通りすがり）

コメント返信：

[ 一覧(最新更新順) ]

[[20100222084720]] 『折れ線グラフの線スタイルを一括変更』（NU-ON） ページの最後に飛ぶ

[[20100222084720]]　『折れ線グラフの線スタイルを一括変更』（NU-ON）　ページの最後に飛ぶ