Word: изменение размера изображения в процентах - макрос

Question

Я обычно вставляю множество снимков экрана в Microsoft Word 2007, а затем мне приходится вручную изменять их размер примерно до 75%, что становится очень утомительным.

Снимки экрана все разных размеров.

Я пытался создать макрос для этого, но я могу написать только макрос, который изменит размер выбранного изображения в соответствии с определенными размерами. И я не могу заставить макро-рекордер распознавать изменение размера вручную в окне документа или использование диалогового окна «Размер».

Можно ли написать макрос, который изменит размер выбранного изображения до 75% от его текущего размера?

Этот вопрос похож на мой, но пользователь должен изменить размер всех своих изображений до одинакового размера. Мне нужно изменить размеры изображений, которые имеют произвольную высоту / ширину.

Я также открыт для техники, которая будет вставлять изображения в меньшем размере для начала.

Answer 1

Скопируйте этот код в модуль VBA Editor (Alt + F11) для вашего документа. Если модуль еще не установлен, вы можете добавить его в меню вставки.

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

Для запуска этого макроса нажмите Alt + F8, выберите PicResize из списка макросов и нажмите «Выполнить». Вы также можете назначить ее кнопке в меню, если вы хотите просто щелкать каждый раз, чтобы запустить макрос.