I need to view in a UserForm each .InLineShape picture (with its respective .AlternativeText) placed inside a Word document. I need to do this check inside a UserForm, picture by picture.

so, I created a UserForm with an image and a label object, along with the navigation buttons.

the following code allows me to load this picture from a file:

Private Sub CommandButton1_Click()
    caminhoArquivo = Application.GetOpenFilename(FileFilter:="Image Files(*.jpg), *.jpg")
    Me.Image1.Picture = LoadPicture(caminhoArquivo)
End Sub

I’d like to load this picture from an .InLineShape, instead of a file picture.

I’d appreciate your help.

thanks in advance.