ExcelVBAでのimageクリックイベント時の画像サイズ変化について

Question

お世話になります。

現在以下のようなテストコードでイメージコントロールのクリックイベントを使用したいと考えています。

ところが、画像クリック時に画像サイズが若干拡大してしまう現象がございます。

画像クリック位置の座標を読み取ることを目的としているので、クリック時の画像拡大を防ぐ方法があれば教えて頂けないでしょうか？

Private Sub Image1_Click()

    MsgBox "image size is changed after click"

    Cells(1, 1).Activate

End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

     Range("C6") = x

     Range("C7") = y

End Sub

以上、宜しくお願いいたします。

Answer 1

Makapuさん、ご返信ありがとうございました。

ご紹介いただきました方法について試してみたいと思います。

また、VBA の専用のフォーラムの情報についてもありがとうございます。

解決しない場合には、そちらでの質問もしてみたいと思います。

Answer 2

Kei_1006さん、こんにちは。

Excel 2010  バージョン 14.0.7214.5000（32ビット） 

Windows 10 (バージョン1803)

上記の環境でフォーム上に画像を配置して確認しましたが、クリック時に画像の大きさが拡大するという現象は確認出来ませんでした。

お手元の Office 2010 には Service Pack 2 は 適用されていますでしょうか？

※ファイル > ヘルプ > 「バージョンと著作権の追加情報」で確認出来ます。

https://www.saka-en.com/office/office-2010-sp2-update/

回避方法として、フォームの読み込み時に画像の大きさを取得して、クリック時に画像に取得済みの値を適用する様にしてはいかがでしょうか。

また、Msdn フォーラム ですと VBA の専用のフォーラムがありますので、よろしければそちらにも投稿して情報を集めてみてはいかがでしょう。

■ Msdn フォーラム（VBA）