Excel マクロ オートシェイブのコピーについて

質問

列を自動的に表示したり、非表示にするマクロを組みました。

例えばA列にあるオートシェイブXを置いて、それに以下のマクロを登録します。

Sub 表示1()
Dim col　As Integer
col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
Columns(col + 1).Hidden = False
End Sub

次に、B列に別のオートシェイブYを置いて以下のマクロを登録します。
Sub 非表示()
Dim col　As Integer
col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
Columns(col).Hidden = True
End Sub

これで、YをクリックするとB列が非表示になり、XをクリックするとB列を表示にすることができました。

ところが、このオートシェイブX、Yを別の列にコピーして使おうとすると、うまくいくときといかないときがあります。

例えば、オートシェイブXをG列にコピーしたとき、
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
の値が、７になるときと、１のままのときがあります。

オートシェイブのコピーにおいて、そのままコピーされるとき（７になるとき）と、ちょうどショートカットのようなものになるとき（１になるとき）があるようです。

両者の違い（どのようなときに違いが出るのか）についてどなたか、お教えください。

回答No.1

DreamyCat · ベストアンサー

図形（オートシェープ）のプロパティで
「位置関係」が
・一番下の「セルに合わせて移動やサイズ変更をしない」になっているためだと思います。
・一番上のものだとどんな場合も同じになるはずです。

お礼

どうやら、コピーする前にマクロ登録をしたのがダメだったようです。
マクロ登録せずにコピーして、その後に一斉登録したらOKでした。

補足

図形（オートシェープ）のプロパティの「位置関係」は、
「セルに合わせて移動やサイズ変更をする」
になっています。