Вставка картинки в документ с оригинальными размерами

Вставка картинки в документ с оригинальными размерами, Сброс параметров

Пользователь

Сообщений: 13 Регистрация: 23.09.2014

29.09.2014 16:50:03

Картинка на лист вставляется

Код
Set myDocument = ActiveSheet myDocument.Shapes.AddPicture "d:\проба.png", True, True, xx, yy, 100, 100

так вот... как выполнить команду сбросить параметры для Shape? Какой метод за это отвечает?
Или есть какой-то другой способ?

Изменено: vlasssov71 - 30.09.2014 02:27:30

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

29.09.2014 19:06:12

ScaleHeight или ScaleWidth, как в примере ниже:

Код
Set s = ActiveSheet.Shapes("Picture 1") s.ScaleHeight 1, msoTrue

для рисунка или OLE-объекта достаточно выровнять к 1 по одному из измерений, с указанием msoTrue (это обязательный аргумент)

F1 творит чудеса

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

29.09.2014 20:00:24

попробуйте так

Код
myDocument.Shapes.AddPicture "d:\проба.png", True, True, 0, 0, 0, 0

чтобы вставить в оригинальном размере
а потом уже меняйте у картинки свойства Left и Top на xx и yy

Читают тему