图片与单元格的名称一致

朱付安

老师好，代码运行后，我希望A列的单元格名称与图片文件夹里的图片一一对应，但是运行后没有图片显现在表格中，请问老师怎么回事

另外，我的图片格式是jpg，png，和bmp格式，如何在选择路径是显示这三种格式，谢谢

ww87725244

第一个，要选择规定的文件格式需要msoFileDialogFilePicker，而不是msoFileDialogFolderPicker
第二个，没图片文件，无法诊断

ww87725244

1. Set xFDObject = Application.FileDialog(msoFileDialogFilePicker)
   
2. With xFDObject
   
3.     .Filters.Add "map files", "*.jpg;*.png;*.bmp"
   
4.     .Title = "请选择路径"
   
5.     .InitialFileName = Application.ActiveWorkbook.Path
   
6.     .Show
   
7.     .AllowMultiSelect = False
   
8. End With

复制代码

朱付安

ww87725244 发表于 2024-5-30 20:24

老师，还是空白，没有图片

ww87725244

朱付安 发表于 2024-5-30 20:38
老师，还是空白，没有图片

我也没有图片文件啊

朱付安

ww87725244 发表于 2024-5-30 20:45
我也没有图片文件啊

老师，致辞重新上传了小一点的附件

朱付安

老师，重新上传了附件

ww87725244

1. 不知道你具体想干嘛，怎么还有单元格选择的代码？？
   
2. 就原代码而言，改一下这句就好了
   
3. xStrPicPath = xStrPath & "" & xRg.Text & ".jpg"改成xStrPicPath = xStrPath

复制代码