如何通过VBA区分并设置簇状柱形图的两种样式？

首先明确：你遇到的这两种簇状柱形图变体，本质是同一ChartStyle（201）基础上的额外格式差异。ChartStyle只定义图表的核心样式框架（比如整体配色基调、布局逻辑），而数据标签的显示/旋转、柱形宽度这类细节属于ChartStyle之外的独立格式设置——宏录制器没记录这些，是因为它们不属于ChartStyle的固有属性。因此没法通过ChartType或ChartStyle参数直接区分这两种变体，必须手动通过VBA代码设置对应属性，才能实现第二种变体的效果。

以下是实现蓝色柱形、数据标签旋转45°变体的具体VBA代码示例：

Sub SetTargetColumnChartStyle()
    Dim targetChart As ChartObject
    Set targetChart = ActiveSheet.ChartObjects("你的图表名称") '替换为实际图表名称
    
    '1. 设置基础簇状柱形图和核心样式
    targetChart.Chart.ChartType = 51
    targetChart.Chart.ChartStyle = 201
    
    '2. 将所有柱形设置为统一蓝色（RGB值可按需调整）
    Dim seriesObj As Series
    For Each seriesObj In targetChart.Chart.SeriesCollection
        seriesObj.Format.Fill.ForeColor.RGB = RGB(0, 112, 192) '标准Office蓝色
        seriesObj.Format.Line.Visible = msoFalse '可选：去掉柱形边框
    Next
    
    '3. 开启X轴数据标签并设置45°旋转
    With targetChart.Chart.Axes(xlCategory).TickLabels
        .Orientation = 45
        .Visible = True
    End With
    
    '4. 可选：调整柱形宽度（值越小柱形越宽，默认GapWidth为150）
    targetChart.Chart.SeriesCollection(1).GapWidth = 80
End Sub

关键细节说明： #

• 柱形颜色：通过遍历SeriesCollection统一设置每个数据系列的填充色，确保所有柱形为蓝色。
• 标签旋转：直接操作X轴TickLabels的Orientation属性，设置为45即可实现旋转效果。
• 柱形宽度：通过Series.GapWidth参数控制，数值越小，柱形之间的间距越小、柱形本身越宽。

内容的提问来源于stack exchange，提问作者MarkP