Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Модератор


Moderator


Сообщения: 16855
Благодарности: 3251

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = 283
Selection.ShapeRange.Height = 170
Значения Width и Height подбирайте сами.

-------
При заполнении сведений о конфигурации компьютера не забудь поставить флажок: отображать - "Да"
-------------------------------------------------------------------------------------------
Ассоциация VirusNet - помощь и обучение борьбе с вирусами. Некоторые вопросы загрузки в моем блоге


Отправлено: 22:57, 23-12-2012 | #9