无法使用vba将Windows Pictures文件夹中的图像加载到Excel文件中

Question

I have a vba macro to add an image into the Excel file. The main code to add the file is this...

Dim s As Shape

Set s = Application.ActiveSheet.Shapes.AddPicture(strFilename, msoFalse, msoCTrue, lngLeft, lngTop, -1, -1)

With s
    .Height = 60
    .Locked = True
End With

lngLeft and lngTop are coordinates set earlier in the code. The target image file is selected using Application.FileDialog(msoFileDialogFilePicker)

strFilename is filled using the following code...

Dim fd As FileDialog
Dim objFile As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
    .ButtonName = "Select"
    .AllowMultiSelect = False
    .Title = "Choose a logo graphic ..."
    .Filters.Add "Images", "*.gif; *.jpg; *.png; *.jpeg", 1
    .FilterIndex = 2
    .InitialView = msoFileDialogViewDetails
    .Show

For Each objFile In .SelectedItems
    strFilename = Dir(objFile, vbNormal)
Next objFile

Problem: Everything works perfectly on my system and my colleagues and another random system. However, when our client, for whom it is meant, uses it, he cannot select an image from the Windows' Pictures folder. He can select it from any other folder though. He gets "Run-time error '1004': The specified file wasn't found."

All systems used in development, and testing are Windows 10 and the client is using Windows 7. Also, we are using the Office 2016 while he is using 2010.

Can anyone help with what could be the reason for this problem and a workaround?

Answer 1

I found a workaround that seems to do the job. The problem was with this piece of code

For Each objFile In .SelectedItems
    strFilename = Dir(objFile, vbNormal)
Next objFile

When I added a messagebox, I found that strFilename has only file name (eg: myimage.jpg) without the full path. This doesn't seem to affect its functioning in Office 2016 on Windows 10. But for some reason, either Windows 7 or Office 2010 cannot work with it. So, I changed the way file path+file name string is generated to this and it works fine.

strFilename = .SelectedItems(1)