|
度々すみません。マクロを使ってグラフを描画するところまでは
できたのですが,その出来上がったグラフのサイズの変更を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を直接与えることは
できませんか?
よろしくご教授下さい。
|
|