ダブルクリックで画像挿入

質問

結合されたセル（例：A3、M3、Y3、A34、M34、Y34、A65、M65、Y65←これは固定）をダブルクリックすると
（または、ただ単にセルをダブルクリックすると）
画像を任意のフォルダから読み込み、挿入するというものを作りたいのですが、どのようにすればよいでしょうか？
ご教授お願いします。

回答No.3

noname#22222 · ベストアンサー

s_husky です。

FileName は、"D:\写真\101MSDCF\dsc00482.jpg" と書きなさいということを一般形で示してあるだけです。
斜体表示は、具体的な事柄に置き換えなさいという約束毎があります。
よって、必要ありません。

お礼

なるほど＾＾；
そんな約束があったんですね。
勉強になります。

回答No.2

noname#22222

s_husky です。

１、Sheet1のタグを右クリック。
２、コードの表示。
３、以下の３行をコピー。
４、写真のパスを質問者の実際に合わせる。

これで、シートをダブルクリックしたら背景画像が挿入されます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Worksheets(1).SetBackgroundPicture "D:\写真\101MSDCF\dsc00482.jpg"
End Sub

これが成功したら、任意の場所への画像の挿入というステップです。
まずは、第一段階をクリアしましょう！

お礼

ありがとうござます！
クリアできました＾＾

そこでしつもんですが、ヘルプでSetBackgroundPictureの後に
Filename:=（スペル違うかも・・）
と書いてあったんですが、今回はいらないんですか？

回答No.1

noname#22222

次は、背景画像ないしイメージコントロールへ画像を呼び込むコードです。
画像の大きさも指定できます。
それぞれのヘルプを参照して下さい。

InStr(1, "/1/2/10/12/",　<-- クリック対象のセルを行と列で指示します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Dim R As String
　　Dim C As String

　　R = "/" & Trim(Str$(Target.Row)) & "/"
　　C = "/" & Trim(Str$(Target.Column)) & "/"

　　If InStr(1, "/1/2/10/12/", R, vbTextCompare) > 0 And InStr(1, "/1/2/10/12/", C, vbTextCompare) > 0 Then
　　　　Worksheets(1).SetBackgroundPicture "D:\写真\101MSDCF\dsc00482.jpg"
　　　　Me.Image.Picture = LoadPicture("D:\写真\101MSDCF\dsc00482.jpg")
　　End If
End Sub

お礼

早速のレスありがとうございます＾＾

ヘルプ駆使してみました。。。
が、わかりません。。
スキルがそこまで無いようです。