|
こんにちわ!おつもお世話になっております。
現在複数のグラフが存在するシート上で、
全てのグラフを横並びにするVBを作りたいのですが、
なかなかうまくいきません。
ちなみに、グラフ番号はつど変わってしまうものなので、グラフ番号を使っての操作は考えていません。
以下のコードを記述しましたが、全てのグラフが左上に移動されてしまい、希望通り(一つ一つのグラフが横並び)にはなりませんでした。。
Sub グラフの移動()
Dim Shp1 As Object
Dim gretsu1 As Integer
Range("A1").Select
gretsu1 = 1
For Each Shp1 In ActiveSheet.Shapes
Shp1.Top = Range(Rows(1), Columns(gretsu1)).Top
Shp1.Left = Range(Rows(1), Columns(gretsu1)).Left
gretsu1 = gretsu1 + 10
Next
End Sub
何がいけなかったのでしょうか??><
大変お手数ですが、ご教授いただけますよう、よろしくお願いいたします。
|
|