シートに張り付けたボタンがシートのコピーで消える。

質問

Ｅｘｃｅｌ2003で作成した図書館員の当番表でマクロで当番表を自動作成させています。
サンプルとして用意した当番表のシートを実際の月当番表を作成するときに、シートのコピーをして作成します。シートはコピーされたのですが、そのシートに張り付けた印刷ボタン（クリックすると自動印刷）が今まで一緒にコピーされたのですが、コピーされません。
マイクロソフトの前回の問題と関係するのでしょうか？
コピーされていた古いファイルでしても同様です。

回答No.2

cj_mover

こんにちは。お邪魔します。

> マイクロソフトの前回の問題と関係するのでしょうか？
2014/12/9のOfficeセキュリティ更新プログラムによるActiveXコントロールの一連の不具合のことでしょうか？
http://support.microsoft.com/kb/2553154
だとすると、対策はお済みでしょうか？
http://support.microsoft.com/kb/3025036/ja
それでも尚「CommandButton21問題」
（従来のコントロール名の後ろに"2"が付いた名前に変更された為コントロールの付番が"21"から始まるように見える）
等、未だ解決していない問題が幾つか残っているようですが、、、。
今回の問題の原因については、2014/12/9のアップデートであると、
特定できるまでの情報がありませんので、ハッキリとした回答は出来ません。
現在お使いのWindowsやOfficeのバージョン？、それぞれ32or64ビット？、
2003で作成したブックを2007以降のバージョン[Excel 97-2003 ブック (*.xls)]形式で保存し直しているのかどうか？、
それとも[Excel 97-2003 テンプレート (*.xlt)]なのか？
コピー元のシートにはFrameコントロール上にコントロールを配置しているか？、
等によっても、違いが出てくるのではないでしょうか。

> サンプルとして用意した当番表のシートを実際の月当番表を作成するときに、シートのコピーをして作成します。シートはコピーされたのですが、そのシートに張り付けた印刷ボタン（クリックすると自動印刷）が今まで一緒にコピーされたのですが、コピーされません。
2014/12/9のアップデートが原因である場合、
「シートはコピー出来るのにコントロールだけコピーできない」
という現象は、私の方では確認出来ませんし、ちょっと考えにくいです。
「コントロールだけコピーできない」という
現象そのものは、以前からよく質問される課題ですので、まずは定番の手順で確認をしてみてください。

Excelのオプション設定を、気づかない内に、
（コントロールをコピーしないように）変更してしまっていた場合
（もし、そうでなければ、オプション設定や警告ダイアログに関する言及がある筈です）
というのが、質問された多くのケースで原因となっていたこと、です。
XL2003なら
　　[ツール]→[オプション]→[編集]
　　↓[□オブジェクトをセルとともに切り取り、コピー、並べ替える]
XL2010なら
　　[ファイル]タブ→[オプション]→[詳細設定]→[切り取り、コピー、貼り付け]
　　↓[□挿入したオブジェクトをセルと共に切り取り、コピー、並べ替えを行う(_O)]
の、チェックを外れていまっているのを、チェックし直す、
または、いずれのバージョンでも、VBAから、
　　Application.CopyObjectsWithCells = True
を実行する
等の手順で、シートのコピー時にコントロールもコピーされる状態に通常は戻せます。
"シートはコピーされたのですが、そのシートに張り付けた印刷ボタン...が...コピーされません。"
という説明からすると、以上の確認が先決です。
> コピーされていた古いファイルでしても同様です。
この記述の意味が私には汲み取れていません。ですので、もし見当違いでしたら、すみません。
が、状況に依っては、以上の手当てで解決する可能性もあるのかと。

次に、質問文の説明とは食い違うので、余談、ということになりますが、
「コントロールごとシートのコピーはされるがコントロールが機能しない」
というケースだった場合の話ですと、、、
MSForms.exd削除済みのWin7/Xl2010x64で、XL2003で作成した旧いブックをコピー元にして
　　Workbooks.Open Filename:=""コピー元ブック名.xls"
　　With Workbooks("コピー先ブック名.xlsm")
　　　　Workbooks("コピー元ブック名.xls").Worksheets("コピー元シート名").Copy After:=.Worksheets(.Worksheets.Count)
　　End With
というような記述を実行して確かめましたが、
（コピー元ブックでは[セキュリティ]の警告が表示されたままになるものの）
シートもActiveXコントロール（昔のツールバーコントロール）も見た目上は複製されました。
但し、コピー後の新しいシート上ではActiveXコントロールが機能しません。
これを機能させる為の応急処置としては、以下の手順。
　　[ファイル]タブ→[オプション]→[セキュリティセンター]→[セキュリティセンターの設定]
　　↓[ActiveXの設定]
　　　↓[□先に確認メッセージを表示してから、初期化に危険が伴うコントロールには制限を強化し、初期化しても安全なコントロールには最低限の制限を適用して有効にする(_R)]
　　　にチェックが入っているものを替えて
　　　↓[□確認メッセージを表示せずに、すべてのコントロールを制限なしに有効にする（推奨しません。危険なコントトールが実行される可能性があります）(_E)]
　　　をチェックしておいてから、シートをコピーするマクロを実行します。
これで、コピー直後からActiveXコントロールが機能するようになりますが、
説明にもある通り、セキュリティ上の不安は拭えない状態での、暫定的な対応ということになりますから、
セキュリティ環境の確認を含めて、よく検討した上で採否を見極めるようにしてください。
あくまでも暫定的な対策として、例えば急いで処理したい時の一時的な方法として紹介しているだけです。

ＭＳ側で今後対策の予定があるかどうか、この他により安全な方法があるかどうか、
私には、解りませんし、知り得る立場でもありません。
ただ元々がセキュリティ対策としての改編だったことを考えると、
ActiveXコントロールの新旧バージョン間の互換については、
新たなＭＳによる積極的な対策対応について（少なくとも至近では）
期待できないものだとは私は思っています。
〓抜本的な対策〓としては、
新しいバージョン側で新規に[名前を付けて保存]（作成し直す）ことを、
どこかのタイミングで検討した方がよいのかも知れません。
その方が確実なのとすぐに結果が欲しかったので、無駄になるかも知れないとは思いつつ、
私の周辺では新バージョン導入直後に、
（場合によっては警告ダイアログ上で[コンテンツの有効化]ボタン等を経て）
〓[Excel 97-2003 ブック (*.xls)]を現行の[Excel マクロ有効ブック (*.xlsm)]に書換えて〓、
対策しました（ActiveXコントロールの互換の問題は以前からありましたから）。
なので、今回の問題を再現することも私の環境では簡単ではないので、
確度の高い話は出来ませんが、今の私としては、このような回答になります。

最後に、
「Frameコントロール上に配置したコントロールだけが消えてしまう」
ということでしたらば
（Frameコントロールは本来ボタンを配置する為のものではないので話が違うでしょうけれど）
私が今知っている限りでは、新しいバージョンのブックとして、
改めてコントロールを挿入し直す、という方法ぐらいしかないように思います。

尚もお困りでしたら、補足欄にでも書いてみて下さい。

回答No.1

DreamyCat

１２月の更新ファイルによる不具合の対処をしてあれば大丈夫だとおもいますが
対処済みでもそうなるのですか？
そうであれば、２０１０版などの新しいBookにVBAコードをコピーして使えるようにするだけで済むはずです。