『ダブルクリックで写真を添付できるようにしたい。』（なー）
ダブルクリックで、画像挿入のダイアログがでてくるようにしたいです。
＜ 使用 Excel：unknown、使用 OS：unknown ＞
Excelでダブルクリックすると画像挿入のダイアログが表示されるようにするには、VBA（Visual Basic for Applications）を使用する必要があります。以下に手順を示します。
1. **VBAエディタを開く**:
- Excelを開き、Alt + F11キーを押してVBAエディタを起動します。
2. **シートにマクロを作成する**:
- VBAエディタ内で、挿入したい画像があるシート（たとえばSheet1）をダブルクリックしたときに実行されるマクロを作成します。
3. **マクロの作成**:
- Sheet1（または選択したシート）のオブジェクトをダブルクリックしたときに実行されるマクロを作成します。例えば以下のようなコードを挿入します。
```vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
dlg.Filters.Clear
dlg.Filters.Add "Images", "*.jpg; *.jpeg; *.png; *.gif; *.bmp"
dlg.AllowMultiSelect = False
If dlg.Show = -1 Then
Dim img As Shape
Set img = Target.Parent.Shapes.AddPicture(dlg.SelectedItems(1), msoFalse, msoCTrue, Target.Left, Target.Top, -1, -1)
End If
End Sub
```
- このコードは、指定したシートでセルをダブルクリックすると、画像挿入のダイアログが表示され、選択した画像がそのセルの位置に挿入されます。
4. **VBAエディタを閉じる**:
- マクロを入力したら、VBAエディタを閉じます。
5. **セキュリティの設定**:
- マクロを実行できるように、Excelのマクロセキュリティ設定を確認します。必要に応じて適切な設定を行ってください。
これで、Excelで特定のセルをダブルクリックすると画像挿入のダイアログが表示され、選択した画像が挿入されるようになります。
（む） 2024/07/29(月) 15:07:13
（なー） 2024/07/29(月) 15:17:07
で、検索するとたくさんヒットすると思います。
【写真を貼り付けるVBA】ダイアログから写真を選択し指定するセルに写真を貼りつける
https://note.com/mamemametochan/n/nff9e81011eb0
ここなんかが、質問者さんのイメージにぴったりかも知れませんが、有料(７００円）
だそうです＾＾；
VBA100本ノック 29本目：画像の挿入
https://excel-ubara.com/vba100/VBA100_029.html
こことか良さそうだけど、ダブルクリックの話がないので不満ですかねぇ。。。？
いろいろ豊富な記事はすごく参考になるのですが。。。
探せば、ピッタリのコードが見つかるかも知れませんが、
１個出来ると、次々要求が出てくると思います。
その時に基礎が出来てないと結局中途半端でやめることになるかも。
簡単な近道はないかと思います。
（まっつわん） 2024/07/29(月) 15:30:56
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.