Страница: 1 |
Вопрос: Excel. Как изменить размеры Картинок на странице | Добавлено: 04.09.08 13:43 |
Автор вопроса: ![]() |
Помогите с проблемой:
На странице находятся сотни картинок различного первоночального размера. Автоматически был изменён размер всех картинок (все стали одинаковые по ширине). Необходимо вернуть первоначальный размер (в свойствах картинки на вкладке размер в графе масштаб устанавливаешь 100% и получаешь желаемый результат, но мне это нужно сделать макрасом). Может в свойствах картинки есть размеры? |
Ответы | Всего ответов: 4 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 23 Ответов: 417 |
Профиль | Цитата | #1 | Добавлено: 05.09.08 12:46 |
Возможно что-то вроде этого: ActiveSheet.Shapes("Picture 7"
![]() Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 127.5 Selection.ShapeRange.Width = 99# Selection.ShapeRange.Rotation = 0# Еще есть свойство Selection.ShapeRange.ScaleHeight, но что-то пока не получается с ним. P.S. Там еще кнопка есть Reset в разделе Original Size. Сразу приводит к исходному размеру, который указан рядом. Но как вызвать не знаю. ![]() |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 2 |
Профиль | Цитата | #2 | Добавлено: 05.09.08 16:02 |
Не то. Картинка изночальна была например, 10*10 станет 99*128, другая была 200*150 станет тоже 99*128. |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 23 Ответов: 417 |
Профиль | Цитата | #3 | Добавлено: 06.09.08 19:36 |
А если как-то прочитать оригинальный размер, который есть в разделе Original Size ? Только вот не знаю как это сделать. ![]() |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 2 |
Профиль | Цитата | #4 | Добавлено: 09.09.08 09:59 |
Не смог применить свойство OriginalSize . Вобще не могу найти первоначальных свойств картинки (привязка к ячейке, размер изображения в точках, объём изображения в байтах ...) |
Страница: 1 |
|