在Excel中创建图表时出现自动化错误，未指定错误

Question

我通过VBA生成一个Pivot表和一个100堆积的列图表。

我想将Y轴值从百分比更改为绝对数字。

我录制了宏并使用了以下行。

  

.Axes（xlValue）。选择

     

Selection.TickLabels.NumberFormat =“标准”

虽然，我正在使用这一行，但我得到一个运行时错误

  

自动化错误或未指定的错误。

我研究并发现可能有一个机会我错过了一个参考，但我很震惊哪个参考添加和如何排序这个问题。下面是我用来从Pivot生成Chart的代码。

Sub chart()

Dim sh As Shape
If ActiveSheet.PivotTables.Count = 0 Then Exit Sub

Set ptable = ActiveSheet.PivotTables(1)
Set ptr = ptable.TableRange1

Set sh = ActiveSheet.Shapes.AddChart
sh.Select

With ActiveChart

.SetSourceData ptr
.ChartType = xlColumnStacked100
.Axes(xlValues).Select 
selection.Ticketlabels.Numberformat =" Standard"
End With
End Sub

Answer 1

此外，它应该是xlValue，而不是xlValues。看起来您在指定格式的开头有一个空格。尝试...

.Axes(xlValue).TickLabels.NumberFormat = "Standard"