Shape Rotation Animation Speed

[jwdragon]

Hi all,

I have created 4 gauges with shapes, the dials of the gauges are a shape that's been regrouped at the 0 degree mark on the gauge and moves according to the % of the value * the degrees of the gauge I've created. When I select a new set of values based on a data validation list, they change properly without issues.

I am wanting to slow down the movement speed of the dials so they do not change instantly but rather move in a smooth animation, similar to bar graph/line graph w/ animation steps.

This is the code for one gauge's dial hand:

Sub Group148_Click()
ActiveSheet.Shapes("Group 148").Rotation = Range("'Chart Data'!E2").Value * 225
ActiveCell.Select
End Sub

This code below may be irrelevant but this one changes all the gauges based on the selection:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A1")
Call Group28_Click
Call Group109_Click
Call Group148_Click
Call Group1_Click
End Sub



Could I get some assistance with this please?

Thank you

 

[Logit]

.
Please post your workbook example to DROP BOX or AMAZON CLOUD or GOOGLE CLOUD, etc.