| Вопрос: Excel. Как изменить размеры Картинок на странице | Добавлено: 04.09.08 13:43 |
Автор вопроса:  Марат
|
|
Помогите с проблемой:
На странице находятся сотни картинок различного первоночального размера. Автоматически был изменён размер всех картинок (все стали одинаковые по ширине). Необходимо вернуть первоначальный размер (в свойствах картинки на вкладке размер в графе масштаб устанавливаешь 100% и получаешь желаемый результат, но мне это нужно сделать макрасом). Может в свойствах картинки есть размеры? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #1 | Добавлено: 05.09.08 12:46 |
|
Возможно что-то вроде этого: ActiveSheet.Shapes("Picture 7"
 .Select
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 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #3 | Добавлено: 06.09.08 19:36 |
|
А если как-то прочитать оригинальный размер, который есть в разделе Original Size ? Только вот не знаю как это сделать.
|
||
|
Номер ответа: 4 Автор ответа: МаратВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 09.09.08 09:59 |
| Не смог применить свойство OriginalSize . Вобще не могу найти первоначальных свойств картинки (привязка к ячейке, размер изображения в точках, объём изображения в байтах ...) | ||
Страница: 1 |