У меня есть документ 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