VBA word, to convert linked images to embedded.

gistfile1.vb

Sub convert_all_inline_shapes()
Dim s As InlineShape

For Each s In ActiveDocument.InlineShapes
    If s.Type = wdInlineShapeLinkedPicture Then

        ' use debug print to get a list of images converted.. not necessary though...
        Debug.Print s.Type & " <>"
        s.LinkFormat.SavePictureWithDocument = True
        s.LinkFormat.Update
        s.LinkFormat.BreakLink
        
    End If
Next s
End Sub

This ends up being a blank, white, box for me. Am I missing something?