ピボット テーブルを使用して一連のグラフを作成し、それらを Word ドキュメントにコピーしてレポートを作成する VBA Excel スクリプトを作成しています。グラフはペアになっており、貼り付けた後、y 軸の間にわずかな「距離」があります。延長するなら一列にしてほしい。
物件を利用していTickLables.Offset
ます。両方のチャートで同じ値に設定されていますが、それでもうまくいきません。
どんな提案でも大歓迎です。
編集:
問題のスクリーンショット:
コード:
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With Selection.TickLabels
.Offset = 500
End With