Ayman: the idea behind the demographic dashboard is to show the capabilities of a spreadsheet like Excel as a dashboard tool. Naturally, it can be used with other projects.
Please let me know what you have in mind. You can e-mail me to charts at jorgecamoes.com
I plan to try your thematic map. I already have an idea of how to make it very useful.
I do a lot of programming within Access to export data and programmatically generate charts in Excel.
Usually I can just record what I want in Excel and transfer the code(with some syntax changes) right into my Access module.
Right now I’m struggling with inserting a text box with specific data into the upper left corner of the chart that I have just created.
Here’s what WON”T work:
with xlchart.chart
.Shapes.AddTextbox(msoTextOrientationHorizontal, _
25, 20, 160, 70).Select
With xlChart.Chart.Shapes(”Text Box 1″).Characters.Text = _
“3 Month RunRate: 26198″ & Chr(10) & “3 Month Forecast Average: 26198″ & Chr(10) & _
“6 Month RunRate: 25844″ & Chr(10) & “6 Month Forecast Average: 25844″ & Chr(10) & “”
With Selection.Characters(Start:=1, Length:=110).Font
.Name = “Arial”
.FontStyle = “Regular”
.Bold = True
.Size = 10
End With
End With
End With
Would you mind telling me what I’m doing wrong?
Thank you in advance,
Gail
Hello I am trying to make a thematic map showing the different membership chapters of my group across the US. I was using your tutorial and was able to make the simple shapes work.
However, when I drew a us map using auto shapes, the cell holding actRegCode returns a #N/A value in the MODEL TAB, and the macro returns an error on the 3rd line “The item with the specified name wasn’t found.”
Here is my code.
Sub ColorCode()
‘
‘ ColorCode Macro
‘ Macro recorded 5/2/2008 by timothy
For i = 14 To 128 Range(”actReg”).Value = Range(”Data!C” & i).Value ActiveSheet.Shapes(Range(”actReg”).Value).Select Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range(”actRegCode”).Value).Interior.Color
Next i
Any advice on what I’m doing wrong? Or could I send you my file?
Hi,
I am looking for city managers dashboards, do you provide a dashboards other than demographic dashboard. kindly advise,
Regards,
Ayman B.
Ayman: the idea behind the demographic dashboard is to show the capabilities of a spreadsheet like Excel as a dashboard tool. Naturally, it can be used with other projects.
Please let me know what you have in mind. You can e-mail me to charts at jorgecamoes.com
I plan to try your thematic map. I already have an idea of how to make it very useful.
I do a lot of programming within Access to export data and programmatically generate charts in Excel.
Usually I can just record what I want in Excel and transfer the code(with some syntax changes) right into my Access module.
Right now I’m struggling with inserting a text box with specific data into the upper left corner of the chart that I have just created.
Here’s what WON”T work:
with xlchart.chart
.Shapes.AddTextbox(msoTextOrientationHorizontal, _
25, 20, 160, 70).Select
With xlChart.Chart.Shapes(”Text Box 1″).Characters.Text = _
“3 Month RunRate: 26198″ & Chr(10) & “3 Month Forecast Average: 26198″ & Chr(10) & _
“6 Month RunRate: 25844″ & Chr(10) & “6 Month Forecast Average: 25844″ & Chr(10) & “”
With Selection.Characters(Start:=1, Length:=110).Font
.Name = “Arial”
.FontStyle = “Regular”
.Bold = True
.Size = 10
End With
End With
End With
Would you mind telling me what I’m doing wrong?
Thank you in advance,
Gail
Hello I am trying to make a thematic map showing the different membership chapters of my group across the US. I was using your tutorial and was able to make the simple shapes work.
However, when I drew a us map using auto shapes, the cell holding actRegCode returns a #N/A value in the MODEL TAB, and the macro returns an error on the 3rd line “The item with the specified name wasn’t found.”
Here is my code.
Sub ColorCode()
‘
‘ ColorCode Macro
‘ Macro recorded 5/2/2008 by timothy
For i = 14 To 128 Range(”actReg”).Value = Range(”Data!C” & i).Value ActiveSheet.Shapes(Range(”actReg”).Value).Select Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range(”actRegCode”).Value).Interior.Color
Next i
Any advice on what I’m doing wrong? Or could I send you my file?
Thank you
Tim
Hi Tim. Yes, please send me the file, is much easier to see what the problem is.