Question

尝试在VBA Excel 2007中设置轴标签。除轴标签外，以下所有内容均有效。

        Charts.Add
        ActiveChart.ChartType = xlColumnClustered
        ActiveChart.SetSourceData Source:=Sheets("Data").Range("A" & i)
        ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
        ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
        ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Hours"
        ActiveChart.SetElement (msoElementChartTitleAboveChart)
        ActiveChart.ChartTitle.Text = ChartName
        ActiveChart.Name = ChartName

我试过没有＆＃39;字符＆＃39;元素，但它仍然无法正常工作。我也想知道如何将格式设置为整数。

Answer 1

所以我偶然发现了答案。我需要插入以下行：

ActiveSheet.Select

在＆＃39; HasTitle＆＃39;之前

设置然后出现轴标签，我可以设置值。

只是偶然发现它，因为我偶然输入了ActiveSheet！

无法在Excel Chart VBA上设置垂直轴标签

1 个答案: