Macro-inserted pictures are not showing on other computers

[alialeola]

Hi guys,

I have this below piece of code that is adding pictures to my excel files.
The problem is that while I can see the photos just fine, they are not displayed on other computers.

Any idea what the problem might be pls?
I didn't write the code, so if any adjustments are needed, I would greatly appreciate the full instructions.

Sub LoopThroughFiles()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object

With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            targetfolder = .SelectedItems(1)
        End If
End With

If targetfolder = "" Then Exit Sub

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder(targetfolder)
With ActiveSheet
    For Each c In .Range("A1", "A" & .UsedRange.Rows.Count)
    Debug.Print "looking for pic " & c.Value
        For Each oFile In oFolder.Files
        
            If c.Value = oFile.Name Then
                c.Select
                Set Pict = ActiveSheet.Pictures.Insert(targetfolder & "\" & oFile.Name)
                      With Pict
                        .ShapeRange.LockAspectRatio = msoFalse
                        .Top = c.Top
                        .Left = c.Left
                        .Width = c.Width
                        .Height = c.Height
                    End With
            End If
        Next oFile
    Next c
End With

End Sub

Thanks!

 

[NdNoviceHlp]

The pictures are selected from a target folder... does every computer have the target folder? Dave

 

[alialeola]

The pictures are selected from a target folder... does every computer have the target folder? Dave

Nup, the purpose is to send these files to external contacts :/

The photos should be added/embedded in the spreadsheet..

.. now how do I do that, Dave please?

 

[NdNoviceHlp]

If you run your code and then save the file, don't the pictures remain with the wb? Dave
ps. The file size will become quite large if you save a lot of pics
To compress the pics after adding them you can trial this code...

VBA.SendKeys "%W{ENTER}", True
Application.CommandBars.ExecuteMso ("PicturesCompress")

 

[alialeola]

If you run your code and then save the file, don't the pictures remain with the wb? Dave
ps. The file size will become quite large if you save a lot of pics
To compress the pics after adding them you can trial this code...

VBA.SendKeys "%W{ENTER}", True
Application.CommandBars.ExecuteMso ("PicturesCompress")

Actually, the pictures remain in the wb.
The problem is that they are not displayed after transferring the files on other computers.

 

[rlv01]

If you send the WB to the person who cannot see the pics, and they send it back to you, can you still see the pics on the returned copy?

 

[alialeola]

If you send the WB to the person who cannot see the pics, and they send it back to you, can you still see the pics on the returned copy?

In Protected View mode, no. After I enable editing, they are displayed.

 

[rlv01]

It might be a good idea to check that their workbook settings are not hiding objects:

File -> Options -> Advanced -> Display options for this workbook -> For objects, show:

Set to "All"