|
はじめまして、よろしくお願い申し上げます。
結合したセルの大きさに合わせて画像を挿入するマクロを
使っているのですが、例えば画像を挿入したいセルをWクリックする事に
よって同様の操作をする方法はありますでしょうか?
現在の記述は以下の通りです。
Sub 画像貼付け()
Dim Fname As String
Dim mySh As Shape
Fname = Application.GetOpenFilename _
(filefilter:="JPEG形式(*.jpg), *.jpg", _
Title:="画像を選択して下さい")
If Fname = "False" Then Exit Sub
With ActiveSheet
Set mySh = .Shapes.AddPicture(Filename:=Fname, _
linktofile:=True, savewithdocument:=False, _
Left:=Selection.Left, Top:=Selection.Top, _
Width:=Selection.Width, _
Height:=Selection.Height)
End With
ChDir ThisWorkbook.Path
End Sub
|
|