| Вопрос: Изменение размера рисунков в Microsoft Word | Добавлено: 23.09.05 14:26 |
Автор вопроса:  Arhitektor
|
|
Доброе время суток!
Требуется найти все рисунки в документе Microsoft Word и изменить их размеры. Как наиболее простым способом это запрограммировать на VBA? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 23.09.05 22:32 |
|
Public Sub ResizeAllPictures()
' Dim s As Shape, i As InlineShape, w!, h! ' s - tekuschij plavajuschij objekt ' i - tekuschij objekt v tekste ' w - shirina kartinki ' h - vysota kartinki ' ' perebor plavajuschih kartinok For Each s In ActiveDocument.Shapes ' nas interesujut prosto kartinki i vneshnije kartinki If s.Type = msoPicture Or s.Type = msoLinkedPicture Then ' schitajem shirinu/vysotu w = 40 h = 40 ' menjajem razmery kartinki s.LockAspectRatio = msoFalse s.Width = w s.Height = h End If Next s ' ' perebor kartinok v strokah teksta For Each i In ActiveDocument.InlineShapes ' nas interesujut prosto kartinki i vneshnije kartinki If i.Type = wdInlineShapePicture Or i.Type = wdInlineShapeLinkedPicture Then ' schitajem shirinu/vysotu w = 40 h = 40 ' menjajem razmery kartinki i.LockAspectRatio = msoFalse i.Width = w i.Height = h End If Next i ' End Sub |
||
|
Номер ответа: 2 Автор ответа: MastMan Вопросов: 0 Ответов: 51 |
Web-сайт: Профиль | | #2 | Добавлено: 25.09.05 20:30 |
|
Самый простой способ:
Записать макрос с нужными действиями, а потом посмотреть, какой код сгенерировал Word. Его взять за основу своего кода. |
||
Страница: 1 |