У меня есть документ Word с 200 страницами и форматом .docx . В нем много формул MathType . После многих редактирований в моем файле большинство формул преобразуется в рисунок. Я сделал это, но это не работает для меня. Хуже всего то, что размер преобразованных уравнений изменился, некоторые стали больше, а некоторые стали меньше. Я могу сбросить размер вручную, щелкнув правой кнопкой мыши по изображению, сняв флажок с look aspect ratio и установив Scale Height и Scale Width на 100, но, что хуже всего, я не могу сбросить размер изображений с помощью macro с настройкой ScaleHeight и ScaleWidth до 100. Вот мой код
Sub ScaleSelectedInlineShapes()
Dim shape As InlineShape
For Each shape In Selection.InlineShapes
With shape
.LockAspectRatio = msoFalse
.ScaleHeight = 100
.ScaleWidth = 100
End With
Next shape
End Sub
