Excel2010のVBAでマクロを作っているのですが、うまくいきません。


現在選択中の散布図グラフ(ActiveChart)について、XY軸ともに軸の太さを2.25に、軸ラベルを20ポイントにしたいと思っています。

すみませんがよろしくおねがいします。

回答の条件
  • 1人2回まで
  • 13歳以上
  • 登録:2011/05/12 21:40:35
  • 終了:2011/05/13 16:53:45

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912011/05/13 00:27:57

ポイント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

このあたりは、マクロの記録を使うとプロパティ等は調べられると思います。

id:spidermite

回答いただきありがとうございました。助かりました。

質問はフォントのサイズを20ptにしたいという意味でした。すみません。

以下のコードで無事走らせることができました(軸を黒くする行を入れました)。

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

2011/05/13 16:52:30
  • id:Mook
    無事解決したようで何よりです。

    2007では一部の操作がマクロの記録で記録されないという不便があったのですが、
    2010で復活していますので、ご活用ください。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません