Linking Picture in Excel

errant

Registered User.
Local time
Today, 08:03
Joined
Sep 1, 2012
Messages
16
Hi, all,

I have a spreadsheet with many pictures, because these linked Pictures in my folder, if I save this file and send to another people which is not in my area, then it would not show pictures.
How can I embed these linked pictures and send out?
 
what steps do you go through to insert the pictures into the spreadsheet now?
 
my Macro program here:
Dim I As integer
Dim FilPath As String
Dim Rng As Range
With Sheet1
For I = 2 To . Range("B65536") .End(xlup).Row
FilPath = "R:\04 Seasonal\"& .Cells(I,2).text & ".jpg"
If Dir(FilPath) <> "" Then
***************.Pictures.Insert(FilPath).Select
***************Set Rng = .Cells(I, 1)
***************With Selection
*******************.Top = Rng.Top + 1
*******************.Left = Rng.Left + 1
*******************.Width = Rng.Width - 1
*******************.Height = Rng.Height - 1
***************End With
***********Else
***************S = S & Chr(10) & .Cells(I,2).Text
***********End If
*******Next
*******.Cells(2, 2).Select
***End With
***If S <> "" Then
*******MsgBox S & Chr(10) & "No Picture"
***End If
End Sub
 
You lost me with the code...sorry, not familiar with vba.
 

Users who are viewing this thread

Back
Top Bottom