Snasui Excel Forum

Code: Select all

Public Sub Graph_RSA(wn)
    
    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("RSA_KPOV_" & wn).Range("W15"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "='XXXXX'!R5C3:R14C3"
    ActiveChart.SeriesCollection(1).Values = "='XXXXX'!R18C5:R27C5"
    ActiveChart.SeriesCollection(1).Name = "='XXXXX'!R4C5"
    ActiveChart.SeriesCollection(2).XValues = "='XXXXX'!R5C3:R14C3"
    ActiveChart.SeriesCollection(2).Values = "='XXXXX'!R18C6:R27C6"
    ActiveChart.SeriesCollection(2).Name = "='XXXXX'!R4C6"
    ActiveChart.SeriesCollection(3).XValues = "='XXXXX'!R5C3:R14C3"
    ActiveChart.SeriesCollection(3).Values = "='XXXXX'!R5C7:R14C7"
    ActiveChart.SeriesCollection(3).Name = "='XXXXX'!R4C2:R17C2"
    ActiveChart.SeriesCollection(4).Values = "='XXXXX'!R18C7:R27C7"
    ActiveChart.SeriesCollection(4).Name = "='XXXXX'!R18C2:R30C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="RSA_KPIV chart"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "RSA"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.SeriesCollection(4).Select
    ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
    ActiveChart.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
    ActiveChart.SeriesCollection(4).Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlTriangle
        .Smooth = False
        .MarkerSize = 7
        .Shadow = False
    End With
    ActiveChart.SeriesCollection(3).Select
    With Selection.Border
        .ColorIndex = 1
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 1
        .MarkerForegroundColorIndex = 1
        .MarkerStyle = xlDiamond
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    With Selection.Interior
        .ColorIndex = 7
        .Pattern = xlSolid
    End With
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = -0.5
        .MaximumScale = 1
        .MinorUnit = 0.05
        .MajorUnit = 0.1
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

End Sub

Code: Select all

ActiveChart.SeriesCollection(1).XValues = "='RSA_KPOV_" & wn & "'!R5C3:R14C3"

Code: Select all

    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
 '   ActiveChart.SetSourceData Source:=Sheets("PSA_KPOV chart_" & wn).Range("N4"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "='PSA_KPOV chart_" & wn & "'!R5C3:R14C3"
    ActiveChart.SeriesCollection(1).Values = "='PSA_KPOV chart_" & wn & "'!R51C9:R60C9"
    ActiveChart.SeriesCollection(1).Name = "='PSA_KPOV chart_" & wn & "'!R4C5"
    ActiveChart.SeriesCollection(2).Values = "='PSA_KPOV chart_" & wn & "'!R51C10:R60C10"
    ActiveChart.SeriesCollection(2).Name = "='PSA_KPOV chart_" & wn & "'!R4C6"
    ActiveChart.SeriesCollection(3).Values = "='PSA_KPOV chart_" & wn & "'!R51C11:R60C11"
    ActiveChart.SeriesCollection(3).Name = "='PSA_KPOV chart_" & wn & "'!R4C7"
    ActiveChart.SeriesCollection(4).Values = "='PSA_KPOV chart_" & wn & "'!R5C12:R14C12"
    ActiveChart.SeriesCollection(4).Name = "='PSA_KPOV chart_" & wn & "'!R4C2"
    ActiveChart.SeriesCollection(5).Values = "='PSA_KPOV chart_" & wn & "'!R51C12:R60C12"
    ActiveChart.SeriesCollection(5).Name = "='PSA_KPOV chart_" & wn & "'!R18C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="PSA_KPOV chart_" & wn
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Muskie PSA Sigma Contributions"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

Code: Select all

With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Muskie PSA Sigma Contributions"
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
    .Left = Worksheets("Sheet1").Range("D5").Left
    .Top = Worksheets("Sheet1").Range("D5").Top
    .Height = Worksheets("Sheet1").Range("D5:D15").Height
    .Width = Worksheets("Sheet1").Range("D5:I5").Width
End With