エクセルVBA・画像を張り付けるコードについて

質問

次のような目的で以下のコードを作成しました。
1.オリンパス社のカメディアマスターというソフトで複数の画像を表示
2.希望の画像を選択してコピー
3.B1に希望の画像を一定サイズで張り付ける
sub 画像貼付　()
Range("B1").Select
ActiveSheet.Paste
Selection ShapeRange.Height 200
Selection ShapeRange.Width 200
End Sub
今回、ご教授したいのは次のとおりです。
上記で2つ目以降の画像を別のシートに貼り付ける際、誤ってカメディアソフト上で画像を選択しないでマクロを実行すると、前回の画像が貼り付いてしまいます。
これを何らかの方法で防ぎたいのです。
よろしくお願いします。

回答No.2

kybo · ベストアンサー

難しく考えると大変なので、
Range("A1").Copy Range("A1")
を最後に入れてみてください。（A1のセルでなくてもいい）

Sub 画像貼付()
Range("B1").Select
On Error GoTo ERA
ActiveSheet.Paste
Selection.ShapeRange.Height = 200
Selection.ShapeRange.Width = 200
Range("A1").Copy Range("A1")
ERA:
End Sub

お礼

ご回答ありがとうございます。
希望どおりになりました。
また、コードの意味も理解できました。

回答No.3

misatoanna

＃１です。

常に空白のセルを使えば、＃２様のご回答が簡単ですね。　(^^)

> Microsoft Forms 2.0 Object Library がありません。
環境がExcel2000です。
新しいバージョンでは、2.0の部分が異なるかもしれません。

お礼

度々のご回答ありがとうございます。

回答No.1

misatoanna

クリップボードを空にする方法がわかりませんので、少し強引な内容です。

VBEditor の [ツール]-[参照設定] で、次の項目を選択しておいてください。
　・Microsoft Forms 2.0 Object Library

Sub 画像貼付()
　Dim obj As DataObject
　Range("B1").Select
　ActiveSheet.Paste
　On Error GoTo Er
　Selection.ShapeRange.Height = 200
　Selection.ShapeRange.Width = 200
　Set obj = New DataObject
　obj.SetText ""
　obj.PutInClipboard
　Er: On Error GoTo 0
End Sub

＜内容＞
画像を貼り付けた後に、クリップボードに "" を送っておきます。
次に、別な画像を選択しないでマクロを実行すると、"" が貼り付くことに
なりますが、これは画像でないため、Selection.ShapeRange.Height = 200 で
エラーが生じます。そこで終了処理に回します。

お礼

ご回答ありがとうございます。
＞VBEditor の [ツール]-[参照設定] で、次の項目を選択しておいてください。
　＞・Microsoft Forms 2.0 Object Library
エクセル2007を使用していますが、これがありません。
なぜでしょうか？