请问 怎么用VBA 弹出插入图片对话框？

d9307018058

请问 怎么用VBA 弹出插入图片对话框？ 只需要弹出插入图片的对话框就行  手动 选择图片

约定的童话

你可以使用 Application.FileDialog 对象，具体的代码如下：

Sub InsertImage()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    With fd
        .AllowMultiSelect = False
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.png"
        
        If .Show = True Then
            ActiveSheet.Pictures.Insert(fd.SelectedItems(1))
        End If
    End With
   
    Set fd = Nothing
End Sub
Sub InsertImage()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    With fd
        .AllowMultiSelect = False
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.png"
        
        If .Show = True Then
            ActiveSheet.Pictures.Insert(fd.SelectedItems(1))
        End If
    End With
   
    Set fd = Nothing
End Sub
这段代码会弹出一个文件选择对话框，允许用户选择图片文件，并将选中的图片插入到活动工作表中。注意，为了让这段代码能够正常工作，你需要在VBA编辑器中设置对“Microsoft Office 16.0 Object Library”或更高版本的引用。

山菊花

Application.Dialogs(342).Show

向東

山菊花 发表于 2023-3-26 15:36
Application.Dialogs(342).Show

https://learn.microsoft.com/zh-c ... cel.xlbuiltindialog

perfect131

342也不太对
是这个
Application.CommandBars.ExecuteMso ("PictureInsertFromFile")