是否有一种方法可以使用VBA插入多个图像，并通过对话框按选择顺序插入这些图像？

Sub InsertImages()
    Dim dlg As FileDialog
    Dim file As Variant
    Dim i As Integer
    
    ' 创建文件对话框对象
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置对话框属性
    With dlg
        .AllowMultiSelect = True ' 允许选择多个文件
        .Title = "选择要插入的图像文件"
        .Filters.Clear
        .Filters.Add "图像文件", "*.jpg; *.jpeg; *.png; *.gif; *.bmp" ' 可根据需要添加其他图像文件格式
    End With
    
    ' 显示对话框并获取用户选择的文件
    If dlg.Show = -1 Then
        ' 遍历用户选择的每个文件
        For Each file In dlg.SelectedItems
            ' 在当前单元格插入图像
            ActiveSheet.Pictures.Insert(file).Select
            ' 调整图像大小和位置
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse ' 不锁定纵横比
                .Width = 200 ' 设置图像宽度
                .Height = 150 ' 设置图像高度
                .Left = Selection.Left ' 设置图像左边距
                .Top = Selection.Top ' 设置图像上边距
            End With
            ' 移动到下一个单元格
            ActiveCell.Offset(0, 1).Select
        Next file
    End If
    
    ' 清除对话框对象
    Set dlg = Nothing
End Sub