|
ぽんぽんさん、こんにちは
>アクティブシート中でグラフをアクティブにして下記のコードを実行させる為には
>グラフの名前をどうすればいいのでしょうか?
>よろしくお願いいたします。
>
>Sub グラフの移動G38_大きさ()
> ActiveSheet.Shapes("グラフ 18").Top = Range("G38").Top
> ActiveSheet.Shapes("グラフ 18").Left = Range("G38").Left
> ActiveSheet.Shapes("グラフ 18").Width = Range("G38").Width * 6
> ActiveSheet.Shapes("グラフ 18").Height = Range("G38").Height * 12
>End Sub
次のコードは、シートのなかにChartがあったら設定の位置、大きさに変更します。
#グラフが2つ以上あってもチェックしていません。
複数シートの処理をする場合は、For Nextの外側にそれなりのループを記述してくださいね。
Sub Test()
Dim Shp As Object
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoChart Then
Shp.Top = Range("G38").Top
Shp.Left = Range("G38").Left
Shp.Width = Range("G38").Width * 6
Shp.Height = Range("G38").Height * 12
End If
Next
End Sub
#タイミングでどうも私が答えるようになるのは縁があるのか?(?_?)
|
|