Изменение кода для ускорения движения фигуры.

[7vlad37]

Добрый день УВАЖАЕМЫЕ ЗНАТОКИ!!!!!!
Прошу помощи в рещении проблемы.
Что нужно изменить в коде ,чтобы "Фигура Пр.3" двигалась быстрее
чем "Фигура Пр.2".См.файл.

Private Const x! = 0.2835

Private Sub SpinButton1_Change()
Dim i#
i = Shapes("Пр. 3").Height
Shapes("Пр. 3").Height = SpinButton1.Value * x
Shapes("Пр. 2").Left = Shapes("Пр. 2").Left + Shapes("Пр. 3").Height - i
End Sub

[Watcher_1]

Попробуйте так
цифру 5 поменяйте на нужную вам!!!

Private Const x! = 0.2835

Private Sub SpinButton1_Change()
Dim i#
i = Shapes("Пр. 3").Height
Shapes("Пр. 3").Height = SpinButton1.Value * x
Shapes("Пр. 2").Left = Shapes("Пр. 2").Left + (Shapes("Пр. 3").Height - i) / 5
End Sub

[7vlad37]

Уважаемый Watcher_1!!!!
Огромное спасибо за помощ,а то я совсем запутолся ,а делал сначала практически тоже самое только без скобок.
Еще раз спасибо.

[7vlad37]

Уважаемый Watcher_1!!!!
Будте добры помогите еще раз.
А при этом коде:

Private Const x! = 0.28346

Private Sub SpinButton2_Change()
Dim i#
i = Shapes("Пр. 3").Height
Shapes("Пр. 3").Height = SpinButton2.Value * x
Shapes("Пр. 2").Left = Shapes("Пр. 2").Left + Shapes("Пр. 3").Height - i
Shapes("Пр. 5").Left = Shapes("Пр. 5").Left + Shapes("Пр. 3").Height - i
ActiveSheet.Shapes.Range(Array("Пр. 5")).Height = SpinButton2 * 0.2381
End Sub
Надо чтобы "Пр.5" расширялся по Height быстрее.

[Watcher_1]

Сообщение от 7vlad37

Уважаемый Watcher_1!!!!
Будте добры помогите еще раз.
А при этом коде:

Private Const x! = 0.28346

Private Sub SpinButton2_Change()
Dim i#
i = Shapes("Пр. 3").Height
Shapes("Пр. 3").Height = SpinButton2.Value * x
Shapes("Пр. 2").Left = Shapes("Пр. 2").Left + Shapes("Пр. 3").Height - i
Shapes("Пр. 5").Left = Shapes("Пр. 5").Left + Shapes("Пр. 3").Height - i
ActiveSheet.Shapes.Range(Array("Пр. 5")).Height = SpinButton2 * 0.2381
End Sub
Надо чтобы "Пр.5" расширялся по Height быстрее.

Дайте файл для экспериментов!

[7vlad37]

Фаил к просмотру.

[Watcher_1]

Поменяйте
ActiveSheet.Shapes.Range(Array("Пр. 5")).Height = SpinButton2 * 0.2381
НА
ActiveSheet.Shapes.Range(Array("Пр. 5")).Height = Shapes("Пр. 3").Height - 10

[7vlad37]

Watcher_1!!!!!!
Огромное Вам СПАСИБО!!!!
Выпутали меня из омута спасибо.