人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

●質問者: spidermite
●カテゴリ:コンピュータ
✍キーワード:VBA すみません グラフ ベル ポイント
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●100ポイント ベストアンサー

軸の設定だけですが、下記のようなことでしょうか。

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

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

◎質問者からの返答

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

質問はフォントのサイズを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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ