エクセル200７のマクロ異常

質問

旧エクセルでシートを新BOOKへコピーするマクロを使っていたのですが、エクセル2007でこのマクロを使うと、登録マクロが新BOOKのマクロに変わってしまって、元のBOOKに戻った時には、このマクロが使えません。マクロ登録で元のBOOKに登録替えしなくてはなりません。解決法をご指導ください。

回答No.4

Wendy02

こんにちは。

おっしゃっていることは、こういうことだと思います。

最初のマクロ付きブックを母体にして、そこから新規ブックを生成したとき、元にあった親のオートシェイプのマクロも継承する。

そのブック、つまり親からみた子のブックから、母体のマクロを通して孫を生む。しかし、孫は、祖母のマクロは継承せずに、一世代前の自分の親の現実にはないマクロ名しかないのでエラーが生じる。

そして、おやりになりたいことは、子から孫、孫からひ孫、ひ孫からヤシャゴと、世代が下っても、元のマクロを呼ぶようにする、ということです。

このマクロの登録方法というのは、Ver.5 時代に生まれたものなので、すでに、Excel 2003 などでも、継承しない現象はあったような気がします。私は、あえてこういう部分のマクロは触らないようにしてきましたので、分かりませんでした。こういうマクロの使い方は、単独のブックのみです。本来は、コントロールツールのオブジェクトを使うのが良いです。また、#3で示した方法は、Ver.2007では確実な方法だと思います。

それはともかくとして、今回の便宜的な救済策としては、少し最初手間が掛かりますが、以下のようにしてください。

'-------------------------------------------
手順：

きちんと、以下をのマクロ・ブックのフルパスと、マクロ名を入れてください。

Public Const sMACRONAME　 As String =.............................

次に、母体のマクロに対して、二番目のマクロを　Sub MacroInShapeDel()　というマクロを「一回だけ」実行してください。正しく登録されたら、もう、使わなくてよいです。

オートシェイプに登録するマクロは、最初のオートシェイプに登録されていることにします。

以下のマクロは、元の親ブックに登録するものとします。
こちらが提供した不要なマクロは削除して構いません。
'-------------------------------------------
'標準モジュール　(必ず、上端の先頭から書くこと!)
'-------------------------------------------
'マクロ名をフルパスで以下のように登録します。
Public Const sMACRONAME　 As String = "'C:\Documents and Settings\[Your ID]\My Documents\MacroBookl'!CopyShMacro"
Sub CopyShMacro()
　　Dim shName As String
　　On Error GoTo ErrHandler
　　ActiveWorkbook.Worksheets("勝馬投票券").Select
　　shName = ActiveSheet.Name
　　With Worksheets.Add(Before:=Worksheets(1))
　　　　Worksheets(shName).Cells.Copy .Cells
　　　　.Cells.Copy
　　　　.Cells.PasteSpecial Paste:=xlPasteValues, _
　　　　Operation:=xlNone, SkipBlanks:=False, Transpose:=False '値貼り付け
　　　　.Move '新しいブックを作成
　　End With
　　With ActiveSheet
　　　　.Range("A1").Select
　　　　.Shapes(1).OnAction = sMACRONAME
　　　　'シートの名前を自動登録
　　　　.Name = shName
　　End With
　　''保存
　　'Application.Dialogs(xlDialogSaveAs).Show
　　Application.CutCopyMode = False
ErrHandler:
　　If Err.Number > 0 Then
　　　　MsgBox Err.Description
　　End If
End Sub

'-------------------------------------------
'最初にこのマクロを１回だけ親の元ブックに実行する
Sub MacroInShapeDel()
'図形のマクロを削除する
　　On Error GoTo ErrHandler
　　ActiveWorkbook.Worksheets("勝馬投票券").Select
　　With ActiveSheet
　　If .Shapes(1).OnAction <> "" Then
　　　 .Shapes(1).OnAction = ""
　　End If
　　　.Shapes(1).OnAction = sMACRONAME
　　End With
ErrHandler:
　　If Err.Number > 0 Then
　　　　MsgBox Err.Description
　　End If
End Sub

補足

ご指導ありがとうございます。
＜最初のマクロ付きブックを母体にして、そこから新規ブックを生成したとき、元にあった親のオートシェイプのマクロも継承する。

いえ、継承したくないのです。もとのBOOKの図形に登録したマクロが、新BOOKのマクロに変更されてしまうことが、excel2007の欠陥ではないかと思っています。
いろいろと実験してみましたら、当該マクロを使わなくても、手動でBOOK内のあるシートを新たなBOOKに移すという作業をすると、もとのBOOKの図形に登録されたマクロは、すべてありもしない新たなBOOKのマクロに登録替えされてしまいます。
こんな現象は、旧エクセルでは発生しませんでした。

図形にマクロを登録するのではなく、マクロの起動イベントをセルのダブルクリックや右クリック等に変更すると問題は起こりませんでした。
どうやら図形の「マクロの登録」に問題があるようです。