Excel Pump Animation

[@cemcemre6371]

Perfect. Thanks for your video

[@lafyguy]

how do you get the developer add on. i cant find it under the options seting you referd to

[@kevinogden2531]

You have to toggle it on in the options. Am I too late?

[@DaninArmy]

@@kevinogden2531 no you’re not

[@kartikpahwa2674]

Woah

[@michal6135]

where is an animation in this? u just change the color of square by clicking a button with an associated action. That's not an animation.

[@jmatis3333]

Agreed, this is not really an animation... to animate this, create a rectangle on a sheet (I used sheet9) and give it a gradient pattern. I set the gradient positions to 2 and 3 % initially, and gave the first gradient a white color and the second a dark blue to look like water...I used the following code which you might have to adjust to your needs:Sub fillRectangle() With Sheet9.Shapes("Rectangle 1") For i = .Fill.GradientStops(1).Position To 0.02 Step -0.01 .Fill.GradientStops(1).Position = .Fill.GradientStops(1).Position - 0.01 .Fill.GradientStops(2).Position = .Fill.GradientStops(2).Position - 0.01 DoEvents Next i End With End Sub Sub emptyRectangle() With Sheet9.Shapes("Rectangle 1") For i = .Fill.GradientStops(1).Position To 0.98 Step 0.01 .Fill.GradientStops(1).Position = .Fill.GradientStops(1).Position + 0.01 .Fill.GradientStops(2).Position = .Fill.GradientStops(2).Position + 0.01 DoEvents Next i End With End Sub

[@ДмитрийСтатченко]

Super. I am finding