есть "отображаемые" ширина и высота для каждого рисунка:

Selection.InlineShapes.Width
Selection.InlineShapes.Height

но есть еще и исходные размеры, которые отображаются внизу вкладки Размер параметров рисунка.

вопрос в зал - как их узнать?

ЗалФрилансер,

?CDbl(ActiveDocument.InlineShapes(1).Height)/ActiveDocument.InlineShapes(1).ScaleHeight/72*254

Для ширины аналогично. Но ответ будет неточным из-за ограниченной точности значений, возвращаемых свойствами Height и ScaleHeight.

получаются те же самые размеры, что и рисунок имеет сейчас (растянут по ширине)

через манипуляции с диалогом формата рисунка - убрать флажки пропорций и нажать Сброс - к исходным размерам он возвращается, если что.
(рисунок был получен методом вставки из буфера)

как жить дальше?

вообще, вопрос возникает - если это прояснит ситуацию! - после применения

selection.InlineShapes(1).reset

для изображений, которые были кадрированы и сжаты без изменения масштаба (фактически, отсечена ненужная информация).

при этом после ресета оставшийся кадрик растягивается до размеров исходного изображения (до обрезки)

при этом .scaleWidth - что представляет из себя насколько я понял, процентное отношение размера картинки относительно исходной - абсолютно не несет полезной информации.

но в упомянутом выше диалоге размера рисунка, если сбросить размер - сохранить пропорции - - относительно текущего размера и нажать сброс, картинка возвращается в исходное нормальное состояние.

что наводит на мысль о том, что где-то таки хранятся исходные размеры кадрированной части рисунка...



...а вообще, интересно - здесь есть товарищи, серьезно знакомые с темой на практике?