Анимация с фигурами

[roborrr]

Здравствуйте!

Помогите пожалуйста сделать такую анимацию:

на активном листе есть фигура "figura 1" , высота которого .Height=1.

эту фигуру с помощью анимации постепенно надо увеличивать до высоты .Height=500 и эта анимация должно длиться в течении T секунды.

И второй вопрос:

как сделать с помощью vba однотонный фон рисунка "risunok"прозрачным?

[Aleksandr H.]

Где файлы?

[roborrr]

Сообщение от Aleksandr H.

Где файлы?

вот файл (см вложение).

[Казанский]

Создайте на листе ActiveX кнопку, назначьте ей этот код в модуле листа, запишите Т в яч. А1, нажмите кнопку.

Private Sub CommandButton1_Click()
Dim timeStop#, h#, h0#, t0#, t#, dh#, p#
  h0 = Rectangles(2).Height 'конечная высота
  p = Rectangles(1).Top
  t0 = Timer
  timeStop = t0 + [A1]
  dh = h0 / [A1]            'приращение высоты за секунду
  Do
    t = Timer
    Rectangles(1).Height = dh * (t - t0)
    Rectangles(1).Top = p - dh * (t - t0)
    DoEvents
  Loop Until t >= timeStop
End Sub

[roborrr]

Сообщение от Казанский

Создайте на листе ActiveX кнопку, назначьте ей этот код в модуле листа, запишите Т в яч. А1, нажмите кнопку.

Private Sub CommandButton1_Click()
Dim timeStop#, h#, h0#, t0#, t#, dh#, p#
  h0 = Rectangles(2).Height 'конечная высота
  p = Rectangles(1).Top
  t0 = Timer
  timeStop = t0 + [A1]
  dh = h0 / [A1]            'приращение высоты за секунду
  Do
    t = Timer
    Rectangles(1).Height = dh * (t - t0)
    Rectangles(1).Top = p - dh * (t - t0)
    DoEvents
  Loop Until t >= timeStop
End Sub

Большое спасибо! Отлично работает!