箱ひげ図の書式設定

投稿者 : aki     投稿日時 : 2025/12/08(Mon) 10:31:03     OS : Windows 11     EXCEL : Office 365

---

主旨は、箱ひげ図の各要素の書式を統一したいのですが、要素数が多いためVBA処理したいです。
「データ系列の書式設定」で
・「内側のポイントを表示する」のチェックを外す
・箱の塗りつぶしを白
・箱の枠線を黒
というような作業をVBA処理したいのですが、「マクロの記録」では「ActiveChart.FullSeriesCollection(●).Select」までしか記録してくれないため、困っています。（●は1～100程度）
windows11、office365です。
どうか宜しくお願い致します。

投稿者 : 匿名     投稿日時 : 2025/12/08(Mon) 14:16:13

---

箱ひげ図を使ったことないですけど…
＞・「内側のポイントを表示する」のチェックを外す
＞・箱の塗りつぶしを白
＞・箱の枠線を黒
について、１つずつネット検索して、
Copilotの説明をもとに作ってみました。

動作検証はしていませんが、
もし以下のコードでできたら、
aki様も１つずつ調べて、１つずつ動作検証をするようにしてみてください。
マクロの記録だけでなく、自力でコードを書けるようになっていくと思います。

Sub ExampleCopilot

    Dim cht As Chart
    Dim srs As Series

    Set cht = ActiveChart

    For Each srs In cht.SeriesCollection
        On Error Resume Next 
        srs.ShowInnerPoints = False
        srs.Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
        srs.Format.Line.ForeColor.RGB = RGB(0, 0, 0)
        On Error GoTo 0
    Next srs

    Set cht = Nothinig

End Sub

投稿者 : aki     投稿日時 : 2025/12/08(Mon) 14:51:45

---

匿名 様

ありがとうございます。

srs.ShowInnerPoints = False　が効かないため、自分でも調べてみようと思います。

この度はありがとうございました。