現在選択中の散布図グラフ（ActiveChart）について、XY軸ともに軸の太さを２．２５に、軸ラベルを２０ポイントにしたいと思っています。
すみませんがよろしくおねがいします。
No.1
1314
393
100pt
軸の設定だけですが、下記のようなことでしょうか。
Sub SetActiveChartAxes() With ActiveChart .Axes(xlValue).MajorUnit = 20 .Axes(xlValue).Format.Line.Visible = msoTrue .Axes(xlValue).Format.Line.Weight = 2.25 .Axes(xlCategory).MajorUnit = 20 .Axes(xlCategory).Format.Line.Visible = msoTrue .Axes(xlCategory).Format.Line.Weight = 2.25 End With End Sub
このあたりは、マクロの記録を使うとプロパティ等は調べられると思います。
Mook
2011/05/13 20:28:58
1
1
1
1
1
33
33
回答いただきありがとうございました。助かりました。
質問はフォントのサイズを２０ptにしたいという意味でした。すみません。
以下のコードで無事走らせることができました（軸を黒くする行を入れました）。
Sub SetActiveChartAxes()
With ActiveChart
'.Axes(xlValue).MajorUnit = 20
.Axes(xlValue).Format.Line.Visible = msoTrue
.Axes(xlValue).Format.Line.Weight = 2.25
.Axes(xlValue).TickLabels.Font.Size = 20
.Axes(xlValue).Format.Line.ForeColor.RGB = RGB(0, 0, 0) '軸を黒くする
'.Axes(xlCategory).MajorUnit = 20
.Axes(xlCategory).Format.Line.Visible = msoTrue
.Axes(xlCategory).Format.Line.Weight = 2.25
.Axes(xlCategory).TickLabels.Font.Size = 20
.Axes(xlCategory).Format.Line.ForeColor.RGB = RGB(0, 0, 0) '軸を黒くする
End With
End Sub