怎么用excel通过Vb编程在A列输出图片名称,B列插入图片超链接

1.利用application.getopenfilename方法获取图片文件名插入
语法：application.getopenfilename(filefilter,filterindex,title,buttontext,multiselect)
例：

Sub test1()
Dim filenames As String
Dim filefilter1 As String
    filefilter1 = ("所有图片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.bmp;*.png;*.gif")    '所有图片文件后面的括号为中文括号
    filenames = Application.GetOpenFilename(filefilter1, , "请选择一个图片文件", , MultiSelect:=False)
    Pictures.Insert (filenames)
End Sub

2.在表内插入图片控件，利用application.getopenfilename方法获取图片文件名插入
语法：object.picture = loadpicture(pathname)
例：

Sub test2()
Dim filenames As String
Dim filefilter1 As String
    filefilter1 = ("所有图片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.bmp;*.png;*.gif")   '所有图片文件后面的括号为中文括号
    filenames = Application.GetOpenFilename(filefilter1, , "请选择一个图片文件", , MultiSelect:=False)
    Image1.Picture = LoadPicture(filenames)
End Sub

3.调用excel内置插入图片对话框dialogs(xldialogInsertpicture)插入图片
语法：application.dialogs(xldialogInsertpicture).show
例：

Sub test3()
    Application.Dialogs(xlDialogInsertPicture).Show
End Sub

如果多个图片，可以用For Each myfile In CreateObject("scripting.FileSystemObject").GetFolder(mypath).Files

循环文件夹获取文件方式插入