Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


64287 / 76732 ←次へ | 前へ→

【17026】グラフのサイズを一定にするマクロ
質問  kT/q  - 04/8/19(木) 15:12 -

引用なし
パスワード
   度々すみません。マクロを使ってグラフを描画するところまでは
できたのですが,その出来上がったグラフのサイズの変更をVBA
を使って行いたいと思っています。当方,昨日からVBAの勉強を
始めたばかりで,十分に理解できていません。そこで,マクロの
記録を使って作っていますが,汎用性に欠けます。
できたプログラムは,

Sub グラフのサイズ変更()
  ActiveChart.Axes(xlValue).Select
  ActiveChart.ChartArea.Select
  ActiveSheet.Shapes("グラフ 19").ScaleWidth 1.03, msoFalse, msoScaleFromBottomRight
  ActiveSheet.Shapes("グラフ 19").ScaleHeight 1.02, msoFalse, msoScaleFromBottomRight
  ActiveSheet.Shapes("グラフ 19").ScaleWidth 0.45, msoFalse, msoScaleFromTopLeft
  ActiveSheet.Shapes("グラフ 19").ScaleHeight 0.53, msoFalse, msoScaleFromTopLeft
End Sub

です。グラフ19で固定されているため,使い回しができません。
現在アクティブなグラフを自動で選択できませんか?

また,ScaleWidthやScaleHeightのようにスケーリングによって
サイズを決定するのではなく,WidthやHeightを直接与えることは
できませんか?

よろしくご教授下さい。
0 hits

【17026】グラフのサイズを一定にするマクロ kT/q 04/8/19(木) 15:12 質問
【17034】Re:グラフのサイズを一定にするマクロ ni 04/8/20(金) 8:27 回答
【17038】Re:グラフのサイズを一定にするマクロ Jaka 04/8/20(金) 9:01 回答
【17040】Re:グラフのサイズを一定にするマクロ kT/q 04/8/20(金) 9:11 お礼
【17049】グラフの選択って・・・・ つん 04/8/20(金) 14:07 質問
【17051】でけました(^^; つん 04/8/20(金) 15:06 お礼
【17052】Re:グラフの選択って・・・・ Jaka 04/8/20(金) 15:07 発言
【17053】Re:グラフの選択って・・・・ つん 04/8/20(金) 15:12 お礼
【17054】Re:グラフの選択って・・・・ Jaka 04/8/20(金) 15:42 発言
【17055】Re:グラフの選択って・・・・ つん 04/8/20(金) 15:50 発言
【17056】Re:グラフの選択って・・・・ Jaka 04/8/20(金) 15:59 発言
【17057】Re:グラフの選択って・・・・ Jaka 04/8/20(金) 16:02 発言
【17058】Re:グラフの選択って・・・・ つん 04/8/20(金) 16:10 発言
【17061】Re:グラフの選択って・・・・ Jaka 04/8/20(金) 16:58 発言
【17063】コントロールは全て「Range」!? つん 04/8/20(金) 17:07 発言
【17079】Re:コントロールは全て「Range」!? bykin 04/8/20(金) 23:54 発言
【17099】Re:コントロールは全て「Range」!? つん 04/8/22(日) 12:55 発言
【17100】Re:コントロールは全て「Range」!? bykin 04/8/22(日) 14:06 発言

64287 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free