Creating a Dashboard that will change according to KPIs

[jennie]

Hi,

I have been tasked with creating a spreadsheet in Excel 2000 that wil
contain a dashboard (an image that looks like a car speedo) with an
arrow that reacts to the current months KPI (Key Performace Indicator

e.g. for a bad month the arrow will show in the red part of th
dashboard, a good month the green side and inbetween, inbetween!

I have very little experiance working with the shape side of exce
programming so I was wondering if anyone could give me any links to we
pages detailling how to manipulate shapes etc.
Also if there are any dashboards out there for excel already that woul
be very helpful, and could hopefully be modified to do what i
required.

Thanks a lot for any help and advice
Jenni

 

[Andy Pope]

Hi jennie,

Here are a couple of links to charts that look like speedos or dials.

http://peltiertech.com/Excel/Charts/DummySeries.html#Speedo
http://www.andypope.info/charts/gauge.htm

Cheers
Andy

 

[Vic Eldridge]

Hi Jennie,

The following demonstrates the use of autoshapes to create a speedo
type of thing. Obviously you'll want to add more shapes to spruce
it up a bit.

Regards,
Vic Eldridge


Sub DemoSpeedo()

With ActiveSheet.Shapes
.AddShape(msoShapeBlockArc, 192, 133, 96, 93).Name = "Speedo"
.AddLine(191.25, 179.25, 288, 179.25).Name = "Arrow"
.AddShape(msoShapeRectangle, 192, 180, 96, 63.75).Name = "CoverUp"
End With

With ActiveSheet
.Shapes("Speedo").Adjustments.Item(2) = 0
.Shapes("Arrow").Line.EndArrowheadStyle = msoArrowheadTriangle
.Shapes("Arrow").Flip msoFlipHorizontal
.Shapes("CoverUp").Line.Visible = msoFalse
End With

For i = 1 To 5
For r = 0 To 180
ActiveSheet.Shapes("Arrow").Rotation = r
DoEvents
Next r
For r = 180 To 0 Step -1
ActiveSheet.Shapes("Arrow").Rotation = r
DoEvents
Next r
Next i

End Sub

 

[verma]

Hi

This topic help me a lot in developing my project. I will contribute more when I finished it.

= Hi, if you completed the project . could you give some information . i am also having a similar kind of project .