[[20200915083334]] 『積み上げ棒グラフの一括色変更』(初心者) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『積み上げ棒グラフの一括色変更』(初心者)

表題の通り、いくつものデータがある場合ですが棒グラフのすべての色を白にしたい場合、一括で変更するやり方はありますか?

< 使用 Excel:Excel2016、使用 OS:Windows10 >


 Sub test()
    Dim i As Long
    Dim j As Long

    With ActiveSheet.ChartObjects
        For i = 1 To .Count
            With .Item(i).Chart.FullSeriesCollection
                For j = 1 To .Count
                    With .Item(j).Format
                        .Fill.ForeColor.RGB = RGB(255, 255, 255)
                        .Line.ForeColor.RGB = RGB(0, 0, 0)
                    End With
                Next j
            End With
        Next i
    End With
 End Sub

しかし、全部同じ色にしてしまうと、棒グラフの意味が半減してしまうのでは?
(どの棒がどのデータか判らない)
(???) 2020/09/15(火) 09:51


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.