Hi,

To create my organization chart I needed to insert pictures to BT2:BV2 cell using ID number as reference in cell D2 from a folder on which employee photos saved as IDnumber.jpg.
I know almost nothing about macros but I could figure out to find below code and create my organization chart
The problem is when I send the chart to other people, the photos disappear since it is not embedded but linked.
Can anyone Kindly help me to correct my code?


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d2")) Is Nothing Then Exit Sub
Dim myPict As Picture

With Range("bt2:bv2")
Set myPict = Range("bt2:bv2").Parent.Pictures.Insert("N:\Organization Chart\Pictures" & Target.Value & ".jpg")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With

End Sub