EXCEL VBA セルで選択した場所に画像を挿入・シートに画像挿入作業を効率化する方法（テクニック）

EXCEL VBA セルで選択した場所に画像を挿入・シートに画像挿入作業を効率化する方法（テクニック）

EXCEL VBA ダブルクリックだけ！Excelのセルに画像を挿入する方法

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' ターゲットセルが指定したセル（A2, C2, A4, C4, A6, C6）のいずれでもない場合、CancelをTrueに設定します。
    Cancel = True

    ' ターゲットセルが指定したセル（A2, C2, A4, C4, A6, C6）のいずれかであれば、処理を実行します。
    If Not Intersect(Target, Union(Range("A2"), Range("C2"), Range("A4"), Range("C4"), Range("A6"), Range("C6"))) Is Nothing Then
        ' ファイル選択ダイアログを作成します。
        Dim fd As FileDialog
        Set fd = Application.FileDialog(msoFileDialogFilePicker)
        With fd
            .Title = "Select an Image File"  ' ダイアログのタイトルを設定します。
            .Filters.Clear  ' 既存のフィルターをクリアします。
            .Filters.Add "Image Files", "*.GIF; *.JPG; *.JPEG; *.BMP; *.PNG; *.TIF", 1  ' 画像ファイルのフィルターを追加します。

            ' ダイアログで画像が選択されたら、その画像をダブルクリックされたセルに挿入します。
            If .Show = -1 Then
                Dim Picture As Picture
                Set Picture = ActiveSheet.Pictures.Insert(.SelectedItems(1))

                ' 挿入した画像のサイズと位置をダブルクリックされたセルに合わせます。
                With Picture
                    With .ShapeRange
                        .LockAspectRatio = msoFalse
                        .Width = Target.Width
                        .Height = Target.Height
                    End With
                    .Left = Target.Left
                    .Top = Target.Top
                    .Placement = xlMoveAndSize
                End With
            End If
        End With
    End If
End Sub

EXCEL VBA 複数の画像ファイルを自動的に順番に挿入する方法（複数のイメージファイルをワークシートに配置）

'
'
Sub InsertImages02()
    ' コメント：ダイアログボックスを開き、画像ファイルを選択します。
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .Title = "Select Image Files"
        .Filters.Clear
        .Filters.Add "Image Files", "*.GIF; *.JPG; *.JPEG; *.BMP; *.PNG; *.TIF", 1
        .AllowMultiSelect = True  ' コメント：複数選択を許可します。

        ' コメント：選択した画像ファイルを開きます。
        If .Show = -1 Then
            Dim i As Long
            For i = 1 To .SelectedItems.Count
                ' コメント：奇数行にファイル名を表示します（フルパスではなく）。
                Dim fileName As String
                fileName = Right(.SelectedItems(i), Len(.SelectedItems(i)) - InStrRev(.SelectedItems(i), "\"))
                Range("A" & (2 * i - 1)).Value = fileName
                
                Dim Picture As Picture
                Set Picture = ActiveSheet.Pictures.Insert(.SelectedItems(i))
                
                ' コメント：選択した画像を対応するセル（A2を起点に下方向）に配置し、サイズを調整します。
                With Picture
                    With .ShapeRange
                        .LockAspectRatio = msoFalse
                        .Width = Range("A" & (2 * i)).Width
                        .Height = Range("A" & (2 * i)).Height
                    End With
                    .Left = Range("A" & (2 * i)).Left
                    .Top = Range("A" & (2 * i)).Top
                    .Placement = xlMoveAndSize
                End With
            Next i
        End If
    End With
End Sub
'
'

EXCEL VBA　一瞬でExcelシートの画像を全削除・シートをクリーンにする！

'
'
Sub DeleteAllPictures() '画像の一括削除
    ' ユーザーに削除の確認を求めるメッセージボックスを表示
    If MsgBox("全ての画像を削除してもよろしいですか？", vbYesNo + vbQuestion, "確認") = vbYes Then
        ' 確認が取れた場合、以下の処理を行う
        
        ' 各画像に対して操作を行うための変数を定義
        Dim pic As Picture
        
        ' アクティブシートの全ての画像に対してループ
        For Each pic In ActiveSheet.Pictures
            ' 画像を削除
            pic.Delete
        Next pic
    End If
End Sub
'
'