ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Chart from VBA (https://www.excelbanter.com/excel-programming/326101-chart-vba.html)

James Agostinho

Chart from VBA
 
Hello,
I have several people I chart their number of calls made on a daily basis.
Each person has his/her own worksheet.
I have named the totals I want to chart as named ranges (i.e. Week1,
Week2...)
I have also created a list using insert.name/paste/paste list to create a
drop down list of all the named ranges.

I have used the macro recorder to record making the chart but every time I
try to change the chart range to the named range I get an error.

I would like to be able to use the selection in the dropdown list to create
a chart from VBA.
Can anyone point me to a KB article or does someone already have something
like this they might share.
Thanks
James



Alen32

Chart from VBA
 
You can find some help he
http://peltiertech.com/Excel/Charts/ChartByControl.html


James[_37_]

Chart from VBA
 

Thanks Alen32, this was helpful,
I got everything working, but I can't seem to figure out how to get the
range part to work
..Range(james_week_1) instead of .Range("B104:F105")

If I put a defined name range where the B104:F105 is I get an error.

Does anyone know how to put (or can it be done) in a named range?
Thanks
James


'================================================= ===
Dim strChart As String
dim strSheetName as String

'get the employees name
lngPos_1 = (InStr(strChart, "_") - 1)
strSheetName = Left(strChart, lngPos_1)

'get the selection from the drop down listbox
strChart = cmbCharts.Text

'define the data to be charted
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData
Source:=Sheets(strSheetName).Range("B104:F105"), _
PlotBy:=xlRows
ActiveChart.Location Whe=xlLocationAsObject, Name:="Totals"




All times are GMT +1. The time now is 07:21 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com