Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > No Chart Titles
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 24
Default No Chart Titles

Has anyone got any idea's why my Charts are not displaying any titles?

I would be apreciative of any suggestions

Thanks

Mike

Code Below

Sub Draw_Chart_Click()

On Error Resume Next

Dim chtChart As Chart
Dim Pt As Point
Dim Ser
Dim arr
Dim arr2
Dim i
Dim chtSlct As String

chtSlct = Trim(Range("B5").Value)

' Remove Existing Chart

ActiveSheet.ChartObjects.Delete

' Create a new chart.

arr = Array(RGB(83, 142, 213), RGB(149, 179, 213), RGB(217, 151, 149),
RGB(194, 214, 154), RGB(178, 161, 199), RGB(147, 205, 221), RGB(250, 192,
144), RGB(23, 55, 93), RGB(55, 96, 145), RGB(149, 55, 53), RGB(117, 146, 60),
RGB(96, 73, 123))
i = -1


Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Whe=xlLocationAsObject,
Name:="CHARTS")

' Choose Which Chart to Plot
If chtSlct = Range("B101").Value Then

' Set Description
Range("B16").Value = Range("H101").Value

' Set Colour Scheme for Chart

With chtChart

' Set Chart Type
.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART
DATA").Range("L11:X14"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Incident Age (From Occurence to Closure)"
.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$M$4:$X$10"

.SeriesCollection(1).Interior.Color = RGB(0, 255, 0)
.SeriesCollection(2).Interior.Color = RGB(255, 255, 0)
.SeriesCollection(3).Interior.Color = RGB(255, 180, 0)
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0)

' The Parent property is used to set properties of the Chart, in
this case the location on the sheet.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height

End With
End With

ElseIf chtSlct = Range("B100").Value Then

' Set Description
Range("B16").Value = Range("H100").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("K5:V5,
K2006:V2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Number of Incidents by LRU"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B102").Value Then

' Set Description
Range("B16").Value = Range("H102").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART
DATA").Range("H76:I79"), PlotBy:=xlRows
.ChartTitle.Text = "Severity (SRB V User)"
.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$H$75:$I$75"

.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$76"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$77"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$78"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$79"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Critical
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Major
.SeriesCollection(3).Interior.Color = RGB(255, 255, 0) ' Minor
.SeriesCollection(4).Interior.Color = RGB(0, 255, 0) ' Not
Relevant

' The Parent property is used to set properties of the Chart.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ElseIf chtSlct = Range("B103").Value Then

' Set Description
Range("B16").Value = Range("H103").Value


With chtChart

.ChartType = xlCylinderCol
' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("H49:H60")
.HasTitle = True
.ChartTitle.Text = "Incidents by Cause"

.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$G$49"
.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$49"
.SeriesCollection(2).XValues = "='BASIC CHART DATA'!$G$50"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$50"
.SeriesCollection(3).XValues = "='BASIC CHART DATA'!$G$51"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$51"
.SeriesCollection(4).XValues = "='BASIC CHART DATA'!$G$52"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$52"
.SeriesCollection(5).XValues = "='BASIC CHART DATA'!$G$53"
.SeriesCollection(5).Name = "='BASIC CHART DATA'!$G$53"
.SeriesCollection(6).XValues = "='BASIC CHART DATA'!$G$54"
.SeriesCollection(6).Name = "='BASIC CHART DATA'!$G$54"
.SeriesCollection(7).XValues = "='BASIC CHART DATA'!$G$55"
.SeriesCollection(7).Name = "='BASIC CHART DATA'!$G$55"
.SeriesCollection(8).XValues = "='BASIC CHART DATA'!$G$56"
.SeriesCollection(8).Name = "='BASIC CHART DATA'!$G$56"
.SeriesCollection(9).XValues = "='BASIC CHART DATA'!$G$57"
.SeriesCollection(9).Name = "='BASIC CHART DATA'!$G$57"
.SeriesCollection(10).XValues = "='BASIC CHART DATA'!$G$58"
.SeriesCollection(10).Name = "='BASIC CHART DATA'!$G$58"
.SeriesCollection(11).XValues = "='BASIC CHART DATA'!$G$59"
.SeriesCollection(11).Name = "='BASIC CHART DATA'!$G$59"
.SeriesCollection(12).XValues = "='BASIC CHART DATA'!$G$60"
.SeriesCollection(12).Name = "='BASIC CHART DATA'!$G$60"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ElseIf chtSlct = Range("B104").Value Then

' Set Description
Range("B16").Value = Range("H104").Value

With chtChart

.ChartType = xlCylinderCol
' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("H63:H66")
.HasTitle = True
.ChartTitle.Text = "Number of Incidents by Liability"

.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$G$63"
.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$63"
.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
.SeriesCollection(2).XValues = "='BASIC CHART DATA'!$G$64"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$64"
.SeriesCollection(2).Interior.Color = RGB(0, 255, 0)
.SeriesCollection(3).XValues = "='BASIC CHART DATA'!$G$65"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$65"
.SeriesCollection(3).Interior.Color = RGB(0, 0, 255)
.SeriesCollection(4).XValues = "='BASIC CHART DATA'!$G$66"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$66"
.SeriesCollection(4).Interior.Color = RGB(255, 255, 0)

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ActiveChart.Axes(xlCategory).Select
Selection.Delete

ElseIf chtSlct = Range("B105").Value Then

' Set Description
Range("B16").Value = Range("H105").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("G34:H39")

.HasTitle = True
.ChartTitle.Text = "Current Status"
.SeriesCollection.XValues = "='BASIC CHART DATA'!$G$34:$G$39"
.SeriesCollection.Name = "='BASIC CHART DATA'!$G$34:$G$39"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Open
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Under
Investigation
.SeriesCollection(3).Interior.Color = RGB(0, 128, 0) 'Corrective
Action
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0) ' Deferred
.SeriesCollection(5).Interior.Color = RGB(128, 255, 0) ' SRB
.SeriesCollection(6).Interior.Color = RGB(0, 255, 0) ' Closed

ActiveChart.Axes(xlCategory).Select
Selection.Delete

' The Parent property is used to set properties of the Chart.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height

End With
End With

ElseIf chtSlct = Range("B106").Value Then

' Set Description
Range("B16").Value = Range("H106").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("G34:H39")

.HasTitle = True
.ChartTitle.Text = "Current Status"
.SeriesCollection.XValues = "='BASIC CHART DATA'!$G$34:$G$39"
.SeriesCollection.Name = "='BASIC CHART DATA'!$G$34:$G$39"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Open
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Under
Investigation
.SeriesCollection(3).Interior.Color = RGB(0, 128, 0) 'Corrective
Action
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0) ' Deferred
.SeriesCollection(5).Interior.Color = RGB(128, 255, 0) ' SRB
.SeriesCollection(6).Interior.Color = RGB(0, 255, 0) ' Closed

ActiveChart.Axes(xlCategory).Select
Selection.Delete

' The Parent property is used to set properties of the Chart.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height

End With
End With

ElseIf chtSlct = Range("B110").Value Then

' Set Description
Range("B16").Value = Range("H110").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("Y5:AH5,
Y2006:AH2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "SSR+ 400 Mhz Radio Incidents by Analysis"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B111").Value Then

' Set Description
Range("B16").Value = Range("H111").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("AK5:AL5,
AK2006:Al2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Antenna, High Gain - Incidents by Analysis"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B112").Value Then

' Set Description
Range("B16").Value = Range("H112").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("AP5:AQ5,
AP2006:AP2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "GPS Antenna - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B113").Value Then

' Set Description
Range("B16").Value = Range("H113").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("AT5:AU5,
AT2006:AU2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "AA Battery Carrier - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B114").Value Then

' Set Description
Range("B16").Value = Range("H114").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("AX5:AX5,
AX2006:AX2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Pouch, DPM - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B115").Value Then

' Set Description
Range("B16").Value = Range("H115").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("BB5:BB5,
BB2006:BB2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Team Member Headset - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B116").Value Then

' Set Description
Range("B16").Value = Range("H116").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("BF5:BG5,
BF2006:BG2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Wireless PTT (Dual) - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B117").Value Then

' Set Description
Range("B16").Value = Range("H117").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("BF5:BG5,
BF2006:BG2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Dual Radio Switch Box - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B118").Value Then

' Set Description
Range("B16").Value = Range("H118").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("BK5:BL5,
BK2006:BL2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "USB Cable Assy - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B119").Value Then

' Set Description
Range("B16").Value = Range("H119").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("BS5:BY5,
BS2006:BY2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Network Planning Tool - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B120").Value Then

' Set Description
Range("B16").Value = Range("H120").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("CB5:CD5,
CB2006:CD2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Key Generation Tool - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B121").Value Then

' Set Description
Range("B16").Value = Range("H121").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("CG5:CH5,
CG2006:CH2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Radio Loader - Incidents by Analysis"
With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

Else

' Set Description
Range("B16").Value = Range("H122").Value

With chtChart
.ChartType = xlCylinderColClustered
' Set data source range.

.HasTitle = True
.ChartTitle.Text = "INVALID CHART"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

MsgBox "Invalid Chart Selected - Please Choose Another"
End If

' Remove Legend

ActiveChart.Legend.Select
Selection.Delete

End Sub
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default No Chart Titles
You are getting errors. Remove the statement "On Error Resume Next" and try
running your code again. The errors are your problem. Also change your VBA
setting in the menu Tools - Options - general - Stop on all errors. This
should help you find the real problems.

"Michael Hudston" wrote:


Has anyone got any idea's why my Charts are not displaying any titles?

I would be apreciative of any suggestions

Thanks

Mike

Code Below

Sub Draw_Chart_Click()

On Error Resume Next

Dim chtChart As Chart
Dim Pt As Point
Dim Ser
Dim arr
Dim arr2
Dim i
Dim chtSlct As String

chtSlct = Trim(Range("B5").Value)

' Remove Existing Chart

ActiveSheet.ChartObjects.Delete

' Create a new chart.

arr = Array(RGB(83, 142, 213), RGB(149, 179, 213), RGB(217, 151, 149),
RGB(194, 214, 154), RGB(178, 161, 199), RGB(147, 205, 221), RGB(250, 192,
144), RGB(23, 55, 93), RGB(55, 96, 145), RGB(149, 55, 53), RGB(117, 146, 60),
RGB(96, 73, 123))
i = -1


Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Whe=xlLocationAsObject,
Name:="CHARTS")

' Choose Which Chart to Plot
If chtSlct = Range("B101").Value Then

' Set Description
Range("B16").Value = Range("H101").Value

' Set Colour Scheme for Chart

With chtChart

' Set Chart Type
.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART
DATA").Range("L11:X14"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Incident Age (From Occurence to Closure)"
.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$M$4:$X$10"

.SeriesCollection(1).Interior.Color = RGB(0, 255, 0)
.SeriesCollection(2).Interior.Color = RGB(255, 255, 0)
.SeriesCollection(3).Interior.Color = RGB(255, 180, 0)
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0)

' The Parent property is used to set properties of the Chart, in
this case the location on the sheet.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height

End With
End With

ElseIf chtSlct = Range("B100").Value Then

' Set Description
Range("B16").Value = Range("H100").Value

With chtChart

.ChartType = xlCylinderColClustered
' Set data source range.

.SetSourceData Source:=Sheets("Trend Analysis").Range("K5:V5,
K2006:V2006"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Number of Incidents by LRU"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

For Each Pt In chtChart.SeriesCollection(1).Points
i = i + 1
If i <= UBound(arr) Then Pt.Interior.Color = arr(i)
Next

ElseIf chtSlct = Range("B102").Value Then

' Set Description
Range("B16").Value = Range("H102").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART
DATA").Range("H76:I79"), PlotBy:=xlRows
.ChartTitle.Text = "Severity (SRB V User)"
.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$H$75:$I$75"

.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$76"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$77"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$78"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$79"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Critical
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Major
.SeriesCollection(3).Interior.Color = RGB(255, 255, 0) ' Minor
.SeriesCollection(4).Interior.Color = RGB(0, 255, 0) ' Not
Relevant

' The Parent property is used to set properties of the Chart.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ElseIf chtSlct = Range("B103").Value Then

' Set Description
Range("B16").Value = Range("H103").Value


With chtChart

.ChartType = xlCylinderCol
' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("H49:H60")
.HasTitle = True
.ChartTitle.Text = "Incidents by Cause"

.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$G$49"
.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$49"
.SeriesCollection(2).XValues = "='BASIC CHART DATA'!$G$50"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$50"
.SeriesCollection(3).XValues = "='BASIC CHART DATA'!$G$51"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$51"
.SeriesCollection(4).XValues = "='BASIC CHART DATA'!$G$52"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$52"
.SeriesCollection(5).XValues = "='BASIC CHART DATA'!$G$53"
.SeriesCollection(5).Name = "='BASIC CHART DATA'!$G$53"
.SeriesCollection(6).XValues = "='BASIC CHART DATA'!$G$54"
.SeriesCollection(6).Name = "='BASIC CHART DATA'!$G$54"
.SeriesCollection(7).XValues = "='BASIC CHART DATA'!$G$55"
.SeriesCollection(7).Name = "='BASIC CHART DATA'!$G$55"
.SeriesCollection(8).XValues = "='BASIC CHART DATA'!$G$56"
.SeriesCollection(8).Name = "='BASIC CHART DATA'!$G$56"
.SeriesCollection(9).XValues = "='BASIC CHART DATA'!$G$57"
.SeriesCollection(9).Name = "='BASIC CHART DATA'!$G$57"
.SeriesCollection(10).XValues = "='BASIC CHART DATA'!$G$58"
.SeriesCollection(10).Name = "='BASIC CHART DATA'!$G$58"
.SeriesCollection(11).XValues = "='BASIC CHART DATA'!$G$59"
.SeriesCollection(11).Name = "='BASIC CHART DATA'!$G$59"
.SeriesCollection(12).XValues = "='BASIC CHART DATA'!$G$60"
.SeriesCollection(12).Name = "='BASIC CHART DATA'!$G$60"

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ElseIf chtSlct = Range("B104").Value Then

' Set Description
Range("B16").Value = Range("H104").Value

With chtChart

.ChartType = xlCylinderCol
' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("H63:H66")
.HasTitle = True
.ChartTitle.Text = "Number of Incidents by Liability"

.SeriesCollection(1).XValues = "='BASIC CHART DATA'!$G$63"
.SeriesCollection(1).Name = "='BASIC CHART DATA'!$G$63"
.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
.SeriesCollection(2).XValues = "='BASIC CHART DATA'!$G$64"
.SeriesCollection(2).Name = "='BASIC CHART DATA'!$G$64"
.SeriesCollection(2).Interior.Color = RGB(0, 255, 0)
.SeriesCollection(3).XValues = "='BASIC CHART DATA'!$G$65"
.SeriesCollection(3).Name = "='BASIC CHART DATA'!$G$65"
.SeriesCollection(3).Interior.Color = RGB(0, 0, 255)
.SeriesCollection(4).XValues = "='BASIC CHART DATA'!$G$66"
.SeriesCollection(4).Name = "='BASIC CHART DATA'!$G$66"
.SeriesCollection(4).Interior.Color = RGB(255, 255, 0)

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height
End With
End With

ActiveChart.Axes(xlCategory).Select
Selection.Delete

ElseIf chtSlct = Range("B105").Value Then

' Set Description
Range("B16").Value = Range("H105").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("G34:H39")

.HasTitle = True
.ChartTitle.Text = "Current Status"
.SeriesCollection.XValues = "='BASIC CHART DATA'!$G$34:$G$39"
.SeriesCollection.Name = "='BASIC CHART DATA'!$G$34:$G$39"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Open
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Under
Investigation
.SeriesCollection(3).Interior.Color = RGB(0, 128, 0) 'Corrective
Action
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0) ' Deferred
.SeriesCollection(5).Interior.Color = RGB(128, 255, 0) ' SRB
.SeriesCollection(6).Interior.Color = RGB(0, 255, 0) ' Closed

ActiveChart.Axes(xlCategory).Select
Selection.Delete

' The Parent property is used to set properties of the Chart.

With .Parent
.Top = Range("G2").Top
.Left = Range("G2").Left
.Width = Range("G2:S31").Width
.Height = Range("G2:S31").Height

End With
End With

ElseIf chtSlct = Range("B106").Value Then

' Set Description
Range("B16").Value = Range("H106").Value

With chtChart

.ChartType = xlCylinderCol

' Set data source range.

.SetSourceData Source:=Sheets("BASIC CHART DATA").Range("G34:H39")

.HasTitle = True
.ChartTitle.Text = "Current Status"
.SeriesCollection.XValues = "='BASIC CHART DATA'!$G$34:$G$39"
.SeriesCollection.Name = "='BASIC CHART DATA'!$G$34:$G$39"

.SeriesCollection(1).Interior.Color = RGB(255, 0, 0) 'Open
.SeriesCollection(2).Interior.Color = RGB(255, 180, 0) ' Under
Investigation
.SeriesCollection(3).Interior.Color = RGB(0, 128, 0) 'Corrective
Action
.SeriesCollection(4).Interior.Color = RGB(255, 0, 0) ' Deferred
.SeriesCollection(5).Interior.Color = RGB(128, 255, 0) ' SRB
.SeriesCollection(6).Interior.Color = RGB(0, 255, 0) ' Closed

ActiveChart.Axes(xlCategory).Select
Selection.Delete
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Chart Titles - Thanks Gordon Humphreys[_2_] Excel Programming 0 July 17th 07 04:26 PM
Chart titles Gordon Humphreys[_2_] Excel Programming 2 July 13th 07 09:17 PM
Chart Titles not showing in excel chart Greg_tnwre Excel Discussion (Misc queries) 1 July 28th 06 05:36 PM
Chart Titles not showing in excel chart Window Greg_tnwre Excel Discussion (Misc queries) 0 July 15th 06 03:41 AM
Centering Axis and Chart Titles on chart saturnin02 Excel Discussion (Misc queries) 1 February 9th 05 09:28 AM


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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement