Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Записать макрос на изменение выделенного изображения просто.
Но что если в документе около 50 изображений. Приходится тыкать каждое, можно ли этот процесс полностью автоматизировать?
Читал вот это: http://wordexpert.ru/page/obrabotka-gra … stvami-vba
Но никак не получается изменение размера ко всем объектам диапазона. Явно что-то делаю не так.
Подскажите пожалуйста.
Если Вы написали макрос для одного изображения, сделайте цикл по всем изображениям. Например так:
Sub Изменить_размер_всех_рисунков()
Dim j As Object
'отключить смену экрана
Application.ScreenUpdating = False
'для каждого рисунка в документе
For Each j In Application.ActiveDocument.InlineShapes
'изменить высоту
j.PictureFormat.Crop.PictureHeight = 400
'изменить ширину
j.PictureFormat.Crop.PictureWidth = 200
Next j
End SubДа, точно! Спасибо огромное.
Sub ResizeAll()
'Изменяем размеры всех картинок 8,8х6,6 см
Dim j As Object
'отключить смену экрана
Application.ScreenUpdating = False
'для каждого рисунка в документе
For Each j In Application.ActiveDocument.InlineShapes
'изменить высоту
j.Height = 187.1
'изменить ширину
j.Width = 249.45
Next j
End Subjoriksun
А как будет выглядеть весь макрос (т.е. макрос изменение размера всех фотографий в документе)?
а что в сообщении 02.08.2011 16:54:48 не весь макрос??
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Изменение размера всех фотографий в документе
С тех пор, как в нашу повседневную жизнь прочно вошли компьютеры, вместе с ними укоренился и стал просто незаменимым Microsoft Word. Наш сайт о Microsoft Office Word даст ответ про: как перенести столбец из ворда в excel. Вы, конечно, можете возразить, что существует множество других текстовых редакторов, которые, возможно, ничуть не хуже, но факт остается фактом – 90 % пользователей набирают и редактируют тексты именно в Ворде. На портале о Microsoft Office Word вы узнаете про: как сделать края поля в ворде 2003.
Однако следует отметить грустный факт, что мы не пользуемся и половиной возможностей, заложенных программой, хотя многие бы не прочь познакомиться с его скрытыми функциями и тонкостями. На портале о Microsoft Office Word вы узнаете про: найдите антоним к слову expensive. На форуме сайта Ворд Эксперт как раз и обсуждается оптимизация работы в Ворде, порядок создания шаблонов, написания макросов, сравниваются разные версии программы. На портале о Microsoft Office Word вы узнаете про: зеркальное отражение букв.
Наиболее часто пользователи задают вопросы о редактировании текста, избавлении от лишних абзацев, работе с колонтитулами, автоматической записи макросов. Наш сайт о Microsoft Office Word даст ответ про: нумерация страниц по госту. Ответы на все часто встречающиеся вопросы собраны для удобства в один раздел.
Более сложные проблемы вы сможете обсудить в других разделах. Наш сайт о Microsoft Office Word даст ответ про: windows 7 операция отменена вследствие действующих для компьютера ограничений. Здесь, например, можно научиться создавать шаблоны для разных форм оглавления, разобраться с таблицами Ворда, различными способами печати документа. Наш сайт о Microsoft Office Word даст ответ про: скачать шаблоны для офиса 2007. По любым настройкам любых версий вы найдете информацию и дополнительно список литературы и полезных ссылок. На портале о Microsoft Office Word вы узнаете про: ключ активації офіса.
Также присутствует возможность просмотреть готовые шаблоны и макросы, оставить заявку на решение своей проблемы. На портале о Microsoft Office Word вы узнаете про: как в вордовском документе поставить запрет на копирование. Для общих вопросов на форуме существует «Курилка».