Create Speedometer Chart In Excel 

Thisssssssssssssssss :D so much excitement

So cute!!

Very nice

@@michelleh2702 , , Z ,

Thanks

+Charles Edwards Thanks!! i was facing this problem

+Charles Edwards THANKS! Was having this issue. Much appreciated.

Thank you so much. I was having this problem and you solved it for me. Thank you to the video poster and you both!

thanks. i have the same issue about the pointer. (: great.. really great.. never expected that we can do more about excel....

@Charles Edwards This doesn't work for me. It hides the first chart and I'm left with ONLY the pointer. :(

Thank you for the kind words.

Welcome Dear and thank you for the kind words.

Debbie Matthews Matthews Thank you sooo much dear.

Denis Igua Thanks for the kind words: )

J. Scott Lane can you share it please

:)

+Charles Padera Thank you for the kind words :) you can watch all my videos on www.myelesson.org

Thanks edwin ruzive

+Luis La-Rotta Welcome, please visit www.myelesson.org for more videos

Ur smiling face... Makes excel very easy

+Zaibun Nisa Thank you for the kind words :)

You are welcome

+Max NG Welcome

Welcome, you can watch all my videos at www.myelesson..org

+Krishna Kumar Welcome , you can also watch all my videos on www.myelesson.org

+Shatakshi Gaur welcome dear

Welcome Dear, you can watch all my videos on www.myelesson.org

Welcome dear and thank you for the kind words.

Welcome

Thanks @charly parker for the kind words :)

+Carlos Osorio Welcome , you can also watch all my videos on www.myelesson.org

Just a thought here Welcome :)

Ragu anand Thanks

Awesome !

try this . I implemented to my source code Function GaugeMeter(rng As Range) ' DrawGaugeMeter 'Application.ScreenUpdating = False Dim ActSheet As Worksheet Set ActSheet = ActiveSheet Dim chartTtitleValue As String Dim targetCellValue As Double Dim vtop As Integer Dim chartName As String If (rng.Count = 2) Then chartTtitleValue = Range(rng.Address).Cells(1) targetCellValue = Range(rng.Address).Cells(2) vtop = (rng.Row - 1) * 100 Dim chtObj As ChartObject 'Create a chart Set chtObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=100, top:=vtop, Height:=100) 'Give chart some data chtObj.Chart.ChartType = -4120 ' xlDoughnut chartName = "chart" + CStr(rng.Row) chtObj.name = chartName Dim s1 As Series Dim pts1 As Points Set s1 = chtObj.Chart.SeriesCollection.NewSeries With s1 .name = "Speedometer" .Values = Array(0, 2, 3, 5, 10) ' 5 points 'point 'start point , initial point, mid point, max point End With chtObj.Chart.ChartGroups(1).FirstSliceAngle = 271 Set pts1 = s1.Points pts1(1).Interior.ColorIndex = 3 ' red pts1(2).Interior.ColorIndex = 45 'amber pts1(3).Interior.ColorIndex = 4 ' green pts1(4).Interior.ColorIndex = 5 ' blue pts1(5).Interior.ColorIndex = 0 chtObj.Chart.HasTitle = True chtObj.Chart.ChartTitle.Text = chartTtitleValue chtObj.Chart.HasLegend = False Dim s2 As Series Dim pts2 As Points Set s2 = chtObj.Chart.SeriesCollection.NewSeries With s2 .name = "Pointer" .Values = Array(targetCellValue, 0.2, 10) ' 3 points 'valuer point , pointer marker point, max point End With Set pts2 = s2.Points s2.ChartType = 5 'xlPie s2.AxisGroup = 2 'xlSecondary chtObj.Chart.ChartGroups(2).FirstSliceAngle = 271 pts2(1).Interior.ColorIndex = 0 ' empty pts2(2).Interior.ColorIndex = 1 ' black pts2(3).Interior.ColorIndex = 0 ' empty pts2(2).HasDataLabel = True pts2(2).DataLabel.Text = targetCellValue pts2(2).DataLabel.Font.ColorIndex = 1 'black s2.HasLeaderLines = False ' Application.ScreenUpdating = True Else 'nothing Debug.Print "else" End If GaugeMeter = "" End Function

Thank you : )

Welcome

William A :)

Thanks

NASIR SHENWARI Welcoem

Welcome Dear, you can watch all my videos on www.myelesson.org

Awesome !

***** Welcome

***** Welcome and thanks Friend :)

Bruv327 Thanks :)

Thank you. To see our latest videos please visit www.myelesson.org/

+孟令岩 Welcome

+Luc Armand BOHOULET Welcome, please visit www.myelesson.org for more videos

+Sanjay Dubey Welcome , you can also watch all my videos on www.myelesson.org