需要帮助应用统一的最大值.跨越多个条形图的高度，而不考虑最大值.Y轴值

Question

我不确定我的措辞是否正确，但我想让我的条形图都在相同的高度，而不管最大。价值。例如，如果在一个柱状图上，我的最大值。Y轴上的值为7，另一个条形图为最大值。Y轴上的值为10，我希望两个柱状图的高度相同。这是我要做的事情的参考。注意这个带有max的图表。值为10的与另一个值为11的高度相同。什么好主意吗?

Answer 1

试试这个

将此例程放置在标准代码模块中:

Sub EqualChartHeights()
    Const SPEC_TOP = 100
    Const SPEC_HEIGHT = 175
    Dim c
    For Each c In ActiveSheet.ChartObjects
        c.Top = SPEC_TOP
        c.Chart.ChartArea.Height = SPEC_HEIGHT
        c.Chart.PlotArea.Height = SPEC_HEIGHT
    Next
End Sub

切换到嵌入图表的工作表，按ctrl - f8显示宏对话框。

运行EqualChartHeights

。

您可以通过编辑前两行来管理高度和顶部值。

注意:这项技术可以很容易地扩展到同步其他图表属性，如宽度，网格线，打勾标记等。

根据您的更新要求，请尝试以下修改后的程序:

Sub EqualChartHeights()
    Const SPEC_HEIGHT = 175
    Dim c, p, MaxPoint
    For Each c In ActiveSheet.ChartObjects
        With c.Chart
            MaxPoint = 0
            For Each p In .SeriesCollection(1).Values
                If p > MaxPoint Then MaxPoint = p
            Next
            .Axes(xlValue).MaximumScale = MaxPoint
            .ChartArea.Height = SPEC_HEIGHT
            .PlotArea.Height = SPEC_HEIGHT
        End With
    Next
End Sub