Pages

Friday, September 14, 2012

Interactive USA Map & Chart using X Y Scatter chart

If you want to show the revenue/sales information  or any other info related to different states of USA on Excel using map ,etc. Snapshot below

Download the working file 
  1. Go to worksheet "Source Data"
  2. Choose the states in col A of worksheet "Source Data" and add the info you would like to display in the text box  in Col B . For example I am showing the sales done in that state.
  3. Apply VLOOKUP formula to get the X and Y coordinates from the worksheet "Lookup" (Please ensure all state names are correct and as per the list in worksheet "Lookup" .So that formula should not  return NA )
  4. Click on Update chart button
  5. Goto 'Map" sheet move the mouse over series(RED  dots)  to display the state name and info provided in Col B.

How it is created .
  • Create a simple  X Y scatter chart  
  • Fix the X axis and Y axis option to fixed  snapshot below

  • Insert US map image as background of the chart
  • Right click on chart choose Format Plot Area
  • Choose Fill -> Picture or Texture 
  • Click on file and choose the location of US Map (Map Source  http://en.wikipedia.org/wiki/File:Blank_US_Map.svg )
  • Now Manually choose  X and Y axis for each state 
  • Right click on X and Y axis choose Format Axis -> Line Color -> No line
  • Right click on X and Y axis choose  Font color as white
  • Remove grid lines
Below code is used to update the chart with new data

Sub change_source_data()
Dim pw As String
Sheets("Map").Unprotect
Charts("Map").Select
' xxxxxxxxxxxxxxxxxxxxx delete existing series
Dim srs As Series
Dim ap As Points
    For Each s In ActiveChart.SeriesCollection
        s.Delete
    Next s
' XXXXXXXXXXXXXXX adding series to charts
For i = 2 To Sheets("Source Data").Range("a65356").End(xlUp).Row
Set srs = ActiveChart.SeriesCollection.NewSeries
srs.Name = Sheets("Source Data").Range("a" & i).Value
srs.XValues = Sheets("Source Data").Range("c" & i).Value
srs.Values = Sheets("Source Data").Range("d" & i).Value
Next i
   ' xxxxxxxxxxxxxxxx change shape of labels
For Each s In ActiveChart.SeriesCollection
s.MarkerStyle = 6
s.MarkerSize = 15
s.MarkerBackgroundColor = RGB(255, 0, 0)
s.MarkerForegroundColor = RGB(255, 0, 0)
Next
Sheets("Map").Protect
End Sub


Below code is used to track the mouse movement on charts


Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long, Arg1 As Long, Arg2 As Long
Dim j As Long

ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2

    If ElementID = xlSeries Then
       ActiveSheet.Shapes("Textbox 1").Visible = True
       j = Application.WorksheetFunction.Match(ActiveChart.SeriesCollection(Arg1).Name, Sheets("Source Data").Columns("a:a"), 0)
       ActiveSheet.Shapes("Textbox 1").TextFrame.Characters.Text = "State: " & ActiveChart.SeriesCollection(Arg1).Name _
       & vbNewLine _
       & "Sales: " & VBA.Format(Sheets("Source Data").Range("b" & j).Value, "$#,##0")
    Else
        ActiveSheet.Shapes("Textbox 1").Visible = False
        ActiveSheet.Shapes("Textbox 1").TextFrame.Characters.Text = ""
    End If
End Sub







4 comments:

  1. Try this one too

    http://optionexplicitvba.blogspot.in/2012/08/interactive-map-in-excel-using-rollovers.html

    ReplyDelete
  2. Fantastic!

    http://inanyplace.blogspot.com/

    ReplyDelete
  3. Try this one too

    http://www.excelvbamacros.com/2013/04/interactive-usa-map-chart-using-x-y.html

    ReplyDelete