VBNet - Форум - VBA, Word и картинки

Вопрос: VBA, Word и картинки Добавлено: 04.10.06 14:47

Автор вопроса: Beerukoff

Уважаемые гуру, помогите мне, пожалуйста, написать один макрос.

Вводная - в вордовском файле неизвестное мне количество картинок (более 1 точно), каждая картинка является гиперссылкой.

Цель - нужно уменьшить размер (ширину и высоту) каждой картинки, перевести их в ч/б и удалить гиперссылку.

Пока я даже не могу понять как узнать количество картинок файле и как их по очереди сделать активными, чтобы поправить их параметры.

Спасибо!
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Beerukoff Вопросов: 1 Ответов: 2	Профиль \| Цитата \| #1	Добавлено: 04.10.06 15:22
	В итоге у меня заработал такой макрос: Картинок = ActiveDocument.InlineShapes.Count For n=1 to Картинок ActiveDocument.InlineShapes(n).ConvertToShape ActiveDocument.Shapes(n).Height = 170.34Active ActiveDocument.Shapes(n).PictureFormat.ColorType = msoPictureGrayscale ActiveDocument.Shapes(n).Hyperlink.Delete ActiveDocument.Shapes(n).ConvertToInlineShape Next n PS Писал с экрана (макрос на одном компе, инет на другом), так что мог и ошибиться Ответить

Номер ответа: 2 Автор ответа: Beerukoff Вопросов: 1 Ответов: 2	Профиль \| Цитата \| #2	Добавлено: 05.10.06 09:51
	Предыдущий макрос в итоге оказался не рабочим, почитав справку написал новый. Работает For Each hLink in ActiveDocument.Hyperlinks hLink.Delete Next hLink For Each Picture in ActiveDocument.InlineShapes Picture.Height = 170.34 Picture.Width = 226.75 Picture.PictureFormat.ColorType = msoPictureGrayscale Next Picture Ответить

Страница: 1 |