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

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

снимки экрана имеют разные размеры.

Я попытался создать макрос для этого, но я могу только написать макрос, который изменит размер выбранного изображения до определенных размеров. И я не могу заставить Macro recorder распознавать либо ручное изменение размера в окне документа, либо использование размера диалог.

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

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

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

18
задан Community
17.01.2023 6:10 Количество просмотров материала 3056
Распечатать страницу

1 ответ

скопируйте этот код в модуль редактора VBA (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 из списка макросов и нажмите RUN. Вы также можете назначить его кнопке в меню, если вы хотите просто нажимать каждый раз, чтобы запустить макрос.

8
отвечен CharlieRB 2023-01-18 13:58

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх