1

積み上げ棒グラフのすべてのシリーズを同じ色に設定するマクロと、次のようないくつかの他のビットがあります。

Sub RefreshLabels()

    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

    Dim ch As Chart
    ActiveSheet.ChartObjects("ProjectChart").Activate
    Set ch = ActiveChart
    ch.SetElement (msoElementDataLabelCenter)

    Dim sc As SeriesCollection
    Set sc = ch.SeriesCollection

    Dim showLabel As Boolean
    If (Range("showLabels").Value = "Y") Then
        showLabel = True
    Else
        showLabel = False
    End If

    Dim sameColor As Boolean
    If (Range("sameColor").Value = "Y") Then
        sameColor = True
    Else
        sameColor = False

    End If

    Dim s As Series
    For Each s In sc

        If (sameColor = True) Then
            s.Border.Color = RGB(Range("rgb_r"), Range("rgb_g"), Range("rgb_b"))
            s.Interior.Color = RGB(Range("rgb_r"), Range("rgb_g"), Range("rgb_b"))
        Else
            'CODE HERE TO MAKE COLORS AUTOMATICALLY SELECTED FROM PALLETTE
        End If

        Set dl = s.DataLabels
        dl.ShowSeriesName = showLabel
        dl.ShowValue = False


    Next


End Sub

ただし、シリーズをデフォルトの積み上げ棒グラフに戻すオプションが必要です。色は自動的に並べ替えのパレットに選択されます。

さらに情報が必要な場合はお知らせください。

4

1 に答える 1

1

わかりました、これを解決しました。スタイルをリセットするためにチャートで呼び出すことができるメソッドがあります。

ActiveChart.ClearToMatchStyle

それが誰かを助けることを願っています!

于 2012-09-04T09:24:23.537 に答える