エクセルで写真をサムネール表示する方法とエラーの原因

質問

• エクセルで写真をサムネール表示する方法として、マクロを組むことができます。しかし、コマンドボタンなどのボタンが配置されているSheetでは写真のコピーができないエラーが発生します。
• 具体的なマクロサンプルとして、test()マクロを挙げています。このマクロは、写真を選択して表示し、コピーして貼り付ける処理を行います。しかし、コマンドボタンが配置されているSheetでは、Selection.Copyで『PictureクラスのCopyメソッドが失敗しました』というエラーが発生します。
• このエラーの原因は、コマンドボタンが配置されたSheetではコピー操作ができないためです。エクセルのバージョンやOSの種類によるものではなく、コマンドボタンが配置されたSheetでの制約です。試しにコマンドボタンが配置されていないSheetで実行すると、エラーは発生せずに正常に動作します。

回答No.1

vbhanatyan

私の環境で試した限りでは問題なく動作しましたが、本来、Copy や Paste の
動作は独立した動作として実行すべきかと思います。
CPU の性能等によって画像が表示しきらない状態でCopy が実行されたり、クリップボードに
転送されない内にPaste が実行されたりします。
従って、本来なら取得された画像が表示され、さらにその画像が選択されたかどうかを確認
してから、Copy を実行するようにしないとエラーとなる場合があります。

と言っても実際にそのようなプログラムを組むのは面倒だし複雑になるので、簡略的に待ち時間を
適当に作って動作を継続するのが一般的ですが、最近は、DoEvents や Sleep 関数を使う事の
弊害が色々言われているようなので、動作確認を十分に行って多用しないようにして下さい。

取り敢えず、テストコードとして下記を試してどうなるか確認して見て下さい。
Sub test()
　Dim x As Variant
　x = Application.GetOpenFilename("jpgFiles,*.jpg")
　If VarType(x) = vbBoolean Then Exit Sub
　ActiveSheet.Pictures.Insert(CStr(x)).Select
　Selection.Width = 162
　Selection.Height = 100
　WaitTime (1)
　Selection.Copy
　WaitTime (1)
　ActiveSheet.Paste
End Sub

Public Sub WaitTime(st As Single)
　Dim sngSt As Single
　sngSt = Timer
　Do While Timer - sngSt < st
　　DoEvents
　Loop
End Sub

補足

vbhanatyanさん、ご回答ありがとうございます。

　早速家のパソコンで試してみましたが、
やはりコマンドボタンのあるSheetでは
Selection.Copy
のところでエラーが出ます。

　質問に記したtest()マクロを
今日職場のVistaパソコンでも試しましたが
やはりCopyのところでエラーが出ます。

　この質問マクロは、元々エクセル2003で正常に
動作していたものが、2007になってエラーが出て来たことに
よるものです。ですので、

>CPU の性能等によって画像が表示しきらない状態でCopy が実行されたり、クリップボードに
>転送されない内にPaste が実行されたりします。
が原因とは思えないのですが・・・。