VBA ダブルクリックでセルの真ん中に図をコピー

ダブルクリックした際、そのダブルクリックしたセルの真ん中に
図をコピーして貼り付けたい。

下記のマクロだと、実行するとセルが単体の場合はちゃんと機能するのですが
結合されているセルでも単体セルに合わせて配置されてします。

ダブルクリックセルの真ん中に
図をコピーしてする方法を教えて下さい。

Sub hanko()
Dim c As Range
Set c = ActiveCell
With ActiveSheet.Shapes("Picture 15")
.Top = c.Top + (c.Height - .Height) / 2
.Left = c.Left + (c.Width - .Width) / 2
End With

End Sub

No.1 ベストアンサー 回答者： chiune 回答日時： 2021/01/20 16:23

Set c = ActiveCell

を
Set c = ActiveCell.MergeArea
にしてみてはいかがでしょう。

この回答へのお礼

できました。
こんな簡単な事だったんですね。
勉強になりました。
ありがとうございました。

お礼日時：2021/01/21 15:57