Word2003 вставка изображений единого размера

Ciklop · 12.05.2010, 13:01

Уважаемые форумчане! Подскажите, пожалуйста, возможно ли в 2003 Word-е при добавлении рисунков сделать так, чтобы они постоянно вставлялись одним размером, например 9х12 см, независимо от разрешения и т.п.?

Busine2009 · 12.05.2010, 21:29

Ciklop,
может быть через макрос это возможно, если это подойдёт, то пиши.

Buki214 · 27.05.2010, 13:06

Мне тоже интересно.... Если кто нибудь сможет помочь то мы тока будем рады..

Busine2009 · 29.05.2010, 10:04

Вот макросы:

Код:

Sub m_1()
'Для одного рисунка
Selection.InlineShapes(1).Height = CentimetersToPoints(9)
Selection.InlineShapes(1).Width = CentimetersToPoints(12)
End Sub

Можно сначала вставить нужное количество рисунков, а затем у всех поменять сразу размеры:

Код:

Sub m_2()
Dim oShape As Shape
Dim oInlineShape As InlineShape
'Для всех рисунков в документе
For Each oShape In ActiveDocument.Shapes
    oShape.Height = CentimetersToPoints(9)
    oShape.Width = CentimetersToPoints(12)
Next
For Each oInlineShape In ActiveDocument.InlineShapes
    oInlineShape.Height = CentimetersToPoints(9)
    oInlineShape.Width = CentimetersToPoints(12)
Next
End Sub

Коды вставляются так:
Сервис - Макрос - Редактор Visual Basic - пр. кн. мыши по Normal - Insert - Module - 2 щ. по Module1 - справа вставляем вот эти два кода - Сохранить - Переходим в Word - Сервис - Макрос - Макросы - ищём Module1.m_1 и Module1.m_2 - Выполнить.
Если всё нравится, то можно сделать кнопки для этих макросов на Стандартной панели инструментов.

12.05.2010, 13:01	#1 (ссылка)
Ciklop Новичок Регистрация: 12.05.2010 Сообщений: 2 Репутация: 0	Word2003 вставка изображений единого размера Уважаемые форумчане! Подскажите, пожалуйста, возможно ли в 2003 Word-е при добавлении рисунков сделать так, чтобы они постоянно вставлялись одним размером, например 9х12 см, независимо от разрешения и т.п.?

29.05.2010, 10:04	#4 (ссылка)
Busine2009 Новичок Регистрация: 29.07.2009 Сообщений: 565 Репутация: 30	Вот макросы: Код: Sub m_1() 'Для одного рисунка Selection.InlineShapes(1).Height = CentimetersToPoints(9) Selection.InlineShapes(1).Width = CentimetersToPoints(12) End Sub Можно сначала вставить нужное количество рисунков, а затем у всех поменять сразу размеры: Код: Sub m_2() Dim oShape As Shape Dim oInlineShape As InlineShape 'Для всех рисунков в документе For Each oShape In ActiveDocument.Shapes oShape.Height = CentimetersToPoints(9) oShape.Width = CentimetersToPoints(12) Next For Each oInlineShape In ActiveDocument.InlineShapes oInlineShape.Height = CentimetersToPoints(9) oInlineShape.Width = CentimetersToPoints(12) Next End Sub Коды вставляются так: Сервис - Макрос - Редактор Visual Basic - пр. кн. мыши по Normal - Insert - Module - 2 щ. по Module1 - справа вставляем вот эти два кода - Сохранить - Переходим в Word - Сервис - Макрос - Макросы - ищём Module1.m_1 и Module1.m_2 - Выполнить. Если всё нравится, то можно сделать кнопки для этих макросов на Стандартной панели инструментов.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Передача файлов большого размера	Artur40rus	Мультимедиа	3	10.12.2010 22:56
Уменьшение размера видео.	sosnodub	Мультимедиа	2	04.08.2010 22:03
Отображение размера папки	gollia	Windows Vista	2	29.04.2010 12:44
Прога для увеличения размера картинки	sviatoslav	Графика	12	22.04.2010 02:39
Проблема с WORD2003 в учётке с ограниченными возможностями	Ярослав Титомир	Офис	7	22.04.2010 01:40
Вставка объекта WordArt в Adobe Photoshop	Alexei1986	Графика	4	17.04.2010 01:13
Как записать файлы большого размера?	Pavlucha	Программы	1	24.03.2010 21:31
Неточное отображение размера папки	Killer	Windows XP	1	29.11.2009 13:29
Вставка изображений	Dyatel	О форуме	5	25.11.2009 15:30
Вставка пустых страниц при двухсторонней печати	Busine2009	Офис	2	09.08.2009 01:07
Изменение размера системного диска	rodovan	Windows 7	5	14.02.2009 23:21
Вставка из буфера	Alexsandr	Windows XP	10	10.06.2008 18:46

12.05.2010, 21:29	#2 (ссылка)
Busine2009 Новичок Регистрация: 29.07.2009 Сообщений: 565 Репутация: 30	Ciklop, может быть через макрос это возможно, если это подойдёт, то пиши.

27.05.2010, 13:06	#3 (ссылка)
Buki214 Новичок Регистрация: 27.05.2010 Сообщений: 7 Репутация: 0	Мне тоже интересно.... Если кто нибудь сможет помочь то мы тока будем рады..

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Опции темы
Версия для печати Отправить по электронной почте

Ads