Масштабирование рисунка в Word c помощью VBA - Microsoft Office Word

Vavo · 13.12.2009, 19:17

Здраствуйте, есть такое задание.."Увеличить все рисунки (InlineShapes) в документе в полтора раза"...нифига не понимаю как это сделать....при записи макроса он никак не отображает мои действия над увеличение масштаба, хотя препод сказал попробуй так
Помогите, кто может благодарен заранее

viter.alex · 13.12.2009, 19:28

Код:

Sub ScaleInlineShapes()
  Dim oInShp As InlineShape
  For Each oInShp In ActiveDocument.InlineShapes
    oInShp.LockAspectRatio = msoTrue
    oInShp.ScaleHeight = 150
  Next
End Sub

Vavo · 13.12.2009, 19:35

а он сам ищет рисунки или надо либой вставить он го найдет и увеличит?

Vavo · 13.12.2009, 19:36

Спасибо огромное, выручил все работает

viter.alex · 13.12.2009, 19:52

Цитата:

Сообщение от Vavo

Здраствуйте, есть такое задание.."Увеличить все рисунки (InlineShapes) в документе в полтора раза"…

Вот именно это он и делает: увеличивает все рисунки (InlineShapes) в документе

13.12.2009, 19:17	#1
Vavo Регистрация: 13.12.2009 Сообщений: 5	Масштабирование рисунка в Word c помощью VBA Здраствуйте, есть такое задание.."Увеличить все рисунки (InlineShapes) в документе в полтора раза"...нифига не понимаю как это сделать....при записи макроса он никак не отображает мои действия над увеличение масштаба, хотя препод сказал попробуй так Помогите, кто может благодарен заранее

13.12.2009, 19:28	#2
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Код: `Sub ScaleInlineShapes() Dim oInShp As InlineShape For Each oInShp In ActiveDocument.InlineShapes oInShp.LockAspectRatio = msoTrue oInShp.ScaleHeight = 150 Next End Sub` Лучше день потерять — потом за пять минут долететь!©

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Корректное масштабирование рисунка	devi409	Мультимедиа в Delphi	16	12.06.2012 21:54
Сортировка с помощью VBA	Lyubov1990	Microsoft Office Excel	11	22.11.2011 20:06
Как с помощью Word....	Kotik123	Microsoft Office Word	2	17.06.2009 13:24
Как с помощью Word...	Busine2009	Microsoft Office Word	1	09.06.2009 20:19
Работа с MS Word с помощью VBA. Нужна помощь.	ereality	Microsoft Office Word	5	28.05.2008 18:50

13.12.2009, 19:35	#3
Vavo Регистрация: 13.12.2009 Сообщений: 5	а он сам ищет рисунки или надо либой вставить он го найдет и увеличит?

13.12.2009, 19:36	#4
Vavo Регистрация: 13.12.2009 Сообщений: 5	Спасибо огромное, выручил все работает