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