Document Image Display in Userform Image Control

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 4/8/2018
Dim oILS As InlineShape
Dim oShp As Shape
  For Each oILS In ActiveDocument.InlineShapes
    oILS.Range.Select
    oILS.AlternativeText = InputBox("Review and edit existing alternate text", "Review", oILS.AlternativeText)
  Next oILS
  For Each oShp In ActiveDocument.Shapes
    oShp.Select
    oShp.AlternativeText = InputBox("Review and edit existing alternate text", "Review", oShp.AlternativeText)
  Next
lbl_Exit:
  Exit Sub
End Sub