Как программно сбросить размер вставленного рисунка?

HIdeman · **Добавлено:** Ср июн 26, 2013 10:03 am

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

admin · **Добавлено:** Сб янв 03, 2015 3:42 am

Вот такой макрос:

Код:

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

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

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

Как программно сбросить размер вставленного рисунка?

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