Высокие статистические технологии

Форум сайта семьи Орловых

Текущее время: Вт мар 19, 2024 2:49 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Как программно сбросить размер вставленного рисунка?
СообщениеДобавлено: Ср июн 26, 2013 10:03 am 
Не в сети

Зарегистрирован: Ср июн 26, 2013 10:00 am
Сообщений: 1
Привет.
Создал документ (бланку) состоящий из более 50 листов в которых будет вставлены рисунки.
Нужно создать программку на VBA чтобы автоматически сбросил размер рисунка на оригинальный размер рисунка, потому что Excel меняет размер рисунка по умолчанию.
Не знаю как получить доступ к рисунку программно.
Подскажите пожалуйста как это сделать с помощью VBA?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Как программно сбросить размер вставленного рисунка?
СообщениеДобавлено: Сб янв 03, 2015 3:42 am 
Не в сети
Site Admin

Зарегистрирован: Пн сен 27, 2004 10:26 pm
Сообщений: 114
Вот такой макрос:
Код:
Sub risunki()
For Each risunok In ActiveDocument.InlineShapes
    risunok.Height = высота_рисунка_в пойнтах
    risunok.Width = ширина_рисунка_в пойнтах
Next risunok
For Each figura In ActiveDocument.Shapes
    figura.Height = высота_рисунка_в пойнтах
    figura.Width = ширина_рисунка_в пойнтах
Next figura
End Sub

задаст всем рисункам в документе указанные ширину и высоту.

Вот такой макрос:
Код:
Sub risunki()
For Each risunok In ActiveDocument.InlineShapes
    risunok.ScaleHeight= 100
    risunok.ScaleWidth = 100
Next risunok
For Each figura In ActiveDocument.Shapes
    figura.ScaleHeight= 100
    figura.ScaleWidth= 100
Next figura
End Sub

вернёт все рисунки к их оригинальным размерам.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB