MSChart VBA 代码：调整柱状图宽度

可以使用以下 VBA 代码来修改 MSChart 控件中柱状图的宽度：

Private Sub AdjustBarWidth()
    Dim chartObj As Chart
    Set chartObj = Me.ChartSpace1.Charts(0) '替换为你的 MSChart 控件
    
    chartObj.SeriesCollection(1).BarShape = chShapeBox '设置柱形
    
    Dim valueRange As Double
    valueRange = chartObj.Axes(1).MaximumScale - chartObj.Axes(1).MinimumScale '获取值轴范围
    
    Dim barWidth As Double
    barWidth = 0.2 '替换为你想要的柱状图宽度
    
    chartObj.SeriesCollection(1).DataPoints(1).DataLabel.Text = barWidth '修改数据标签
    
    Dim barCount As Integer
    barCount = chartObj.SeriesCollection(1).Points.Count '获取柱状图数量
    
    For i = 1 To barCount
        chartObj.SeriesCollection(1).Points(i).DataLabel.Text = "" '隐藏数据标签
        chartObj.SeriesCollection(1).Points(i).Interior.Color = chartObj.SeriesCollection(1).Points(i).DataLabel.Interior.Color '设置柱状图颜色
        chartObj.SeriesCollection(1).Points(i).Interior.Pattern = chartObj.SeriesCollection(1).Points(i).DataLabel.Interior.Pattern '设置柱状图填充方式
        chartObj.SeriesCollection(1).Points(i).Interior.PatternColor = chartObj.SeriesCollection(1).Points(i).DataLabel.Interior.PatternColor '设置柱状图填充颜色
        chartObj.SeriesCollection(1).Points(i).Interior.PatternBackgroundColor = chartObj.SeriesCollection(1).Points(i).DataLabel.Interior.PatternBackgroundColor '设置柱状图背景颜色
        chartObj.SeriesCollection(1).Points(i).Bar.SetValue barWidth * valueRange / barCount '设置柱状图宽度
    Next i
End Sub

需要注意的是，该代码只适用于 MSChart 控件中的柱状图。如果你需要修改其他类型的图表，需要根据具体情况进行调整。