Excelでグラフを作成中にオートメーションエラーが発生しました。

Question

VBAでピボットテーブルと100の積み上げ縦棒グラフを生成しています。

Y軸の値をパーセントから絶対値に変更します。

マクロを記録し、以下の行を使用しました。

.Axes（xlValue）.Select

Selection.TickLabels.NumberFormat = "標準"

しばらく、私はこの行を使用しています、私が取得実行時エラー

自動化エラーまたは不特定のエラーです。

チャンスがあるかもしれないと私は参照していますが、私は参照を紛失しています。以下は、Pivo​​tから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"