Linked pictures to embedded

michalduszak 

Try this:

Sub ConvertLinkedShapes()
    Dim w As Worksheet
    Dim s As Shape
    Dim t As Single
    Dim l As Single
    Application.ScreenUpdating = False
    For Each w In Worksheets
        For Each s In w.Shapes
            If s.Type = msoLinkedPicture Then
                t = s.Top
                l = s.Left
                s.Cut
                w.Pictures.Paste
                With w.Pictures(w.Pictures.Count)
                    .Top = t
                    .Left = l
                End With
            End If
        Next s
    Next w
    Application.ScreenUpdating = True
End Sub