Заметка навеяна поиском решения (см. комментарий) для применения к рисункам заданного размера по высоте. Под рисунком мы будем в общем случае понимать графический объект в тексте документа. Это может быть как вставленная в документ картинка, фотография (тип InlineShape), так и нарисованная средствами редактора Word диаграмма, автофигура или иной объект. Более подробную информацию о видах рисунков в Word можно почитать на официальном сайте Microsoft (ссылка).

В итоге родился следующий макрос, результат работы которого выглядит как простое сообщение:

Чтобы получить информацию о рисунке, необходимо выделить его и применить макрос:

Sub getSizesImage()
'Определение типа графического объекта и его размеров (высоты и ширины)
Dim h As Single
Dim w As Single
Dim hSp As Single
Dim str As String
Dim strSize As String
With Selection
  Select Case .Type
    Case Word.WdSelectionType.wdSelectionInlineShape
      'получаем высоту объекта
      h = Round(PointsToCentimeters(.InlineShapes(1).Height), 1)
      'получаем ширину объекта
      w = Round(PointsToCentimeters(.InlineShapes(1).Width), 1)
      str = "Это рисунок (InlineShape)." & vbCr & "Его высота: " & h & " см, ширина: " & w & " см"
    Case Word.WdSelectionType.wdSelectionShape
      'получаем высоту объекта
      h = PointsToCentimeters(.ShapeRange(1).Height)
      'получаем ширину объекта
      w = PointsToCentimeters(.ShapeRange(1).Width)
      str = "Это объект (Shape)." & vbCr & "Его высота: " & h & " см, ширина: " & w & " см"
    Case Else
      str = "Это не графический объект"
  End Select
End With
MsgBox str
End Sub

]]> ]]>