Oct 29 2019 01:32 AM
Hi,
I currently have a macro to insert images into my excel sheet by using the product code to easily produce product quotes
However, because the images are stored locally, when I share the document outside of my organisation, I have to export it as a PDF to ensure the images are visible
I think I need to change the macro to shapes/add picture method to embed the images so they are visible to everyone outside my organisation but I can't get it to work
Here's my current macro, can anyone help? Thank you!!
Sub Images()
'
' Images Macro
'
Application.ScreenUpdating = False
Dim fName As String
Range("A2").Select
On Error Resume Next
Do While ActiveCell.Offset(0, 3).Value <> ""
fName = ActiveCell.Offset(0, 3).Value
ActiveSheet.Pictures.Insert("\\BARD\UKImagebank$\" & fName).Select
Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 14.25
Selection.ShapeRange.IncrementTop 6.25
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub