I suppose that means you don't have an inlineshape in the document. Try:
Private Sub UserForm_Initialize() Set Image1.Picture = LoadPicture(ActiveDocument.Shapes(1).LinkFormat.SourceFullName) TextBox1.Text = ActiveDocument.Shapes(1).AlternativeText End Sub