|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
12.07.2011, 17:13
|
#1 |
|
Пользователь
Регистрация: 28.01.2011
Сообщений: 21
|
Изменение "Толщины" и "Длины" фигуры одновременно
Добрый день Уважаемые Форумчане !!!!!!
Прошу помощи в решении проблемы. Что нужно изменить в коде: "Длина" должна уменьшаться строго на столько,на сколько увеличивается "толщина". Private Sub SpinButton1_Change() ActiveSheet.Shapes.Range(Array("Пр. 1", "Пр. 2")).Width = SpinButton1 * 0.28 ActiveSheet.Shapes("Пр. 1").Height = (60 - SpinButton1.Value) / 0.18 End Sub |
|
|
|
12.07.2011, 23:44
|
#2 |
|
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Посмотрите результат...
Но цифра 249 чистой воды подгонка 
Заказать макрос можно на сайте http://excel4you.ru/
|
|
|
|
|
13.07.2011, 17:53
|
#3 |
|
Пользователь
Регистрация: 28.01.2011
Сообщений: 21
|
Уважаемый Watcher_1 !!!!!!!
Огромное вам спасибо,все получилось. |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Как обойти "преобразование типа из "string" в "float" невозможно" | lexluter1988 | Помощь студентам | 1 | 07.08.2010 12:23 |
| "ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. | Каравай | Microsoft Office Excel | 13 | 17.02.2010 09:53 |
| при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" | aleksei78 | Microsoft Office Excel | 13 | 25.08.2009 12:04 |
