Excel VBA：如何调暗变量以调用表格（“Name1”）。ChartObjects（“Name2”）。chart.FullSeriesCollection（“Name3”）。按名称选择动态

Question

我已经制作了一个Chart Diagramm格式子程序，我想通过Sheetname，Chartname和FullersiesCollection-Name调用，但我不知道如何配置变量，如何调暗它，请给我一个初学者答案。

这是一些带子的示例代码。我不希望在这个子中有三个调用每个Diagramm，我想通过类型

从上面的子调用它

调用PivotChartFormat（SheetName，DiagrammName，SeriesName）

如何使第3个变量像

一样动态化

• SERIESNAME

• “总和”＆amp; SERIESNAME

• “中间”＆amp; SERIESNAME

- ＆GT;挑战是让它充满活力！

Public Sub PivotChartFormat(SeriesName As String)

Application.EnableEvents = True

Dim fontsize As Integer
fontsize = 12
Dim farbe As Long

Select Case SeriesName
    Case "Amazon"
        farbe = RGB(0, 0, 0)        'Schwarz
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Amazon").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Amazon").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Amazon").Select
        Call FormatChart(farbe, fontsize)
    Case "Google"
        farbe = RGB(0, 128, 255)    'Blau Hell
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Google").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Google").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Google").Select
        Call FormatChart(farbe, fontsize)
    Case "Apple"
        farbe = RGB(128, 128, 128)  'Grau
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Apple").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Apple").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Apple").Select
        Call FormatChart(farbe, fontsize)
    Case "Nestle"
        farbe = RGB(0, 0, 255)      'Blau
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Nestle").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Nestle").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Nestle").Select
        Call FormatChart(farbe, fontsize)
    Case "Alibaba"
        farbe = RGB(255, 128, 0)    'Orange
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Alibaba").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Alibaba").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Alibaba").Select
        Call FormatChart(farbe, fontsize)
    Case "Microsoft"
        farbe = RGB(0, 255, 0)      'Grün
        Sheets("Dashboard").ChartObjects("Aktienkurse_Menge").chart.FullSeriesCollection("Microsoft").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Summe").chart.FullSeriesCollection("Summe von Microsoft").Select
        Call FormatChart(farbe, fontsize)
        Sheets("Dashboard").ChartObjects("Aktienkurse_Mittelwert").chart.FullSeriesCollection("Mittelwert von Microsoft").Select
        Call FormatChart(farbe, fontsize)
End Select

Application.EnableEvents = True

End Sub