2

ピボット テーブルを使用して一連のグラフを作成し、それらを 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
4

1 に答える 1