Help

Discussion in 'Excel Charting' started by clines619@gmail.com, Jun 28, 2013.

  1. Guest

    Not sure what i'm doing wrong but it wont graph it correctly.

    Sub Graph()
    '
    ' Graph Macro
    '

    '
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    With ActiveSheet.Shapes(1).Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    .ForeColor.TintAndShade = 0.3399999738
    .ForeColor.Brightness = 0
    .BackColor.ObjectThemeColor = msoThemeColorAccent1
    .BackColor.TintAndShade = 0.7649999857
    .BackColor.Brightness = 0
    .TwoColorGradient msoGradientHorizontal, 1
    End With
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Trend!$D$4"
    ActiveChart.SeriesCollection(1).Values = "=Trend!$F$4:$Q$4"
    ActiveChart.SeriesCollection(1).XValues = "=Trend!$F$3:$Q$3"
    ActiveChart.Legend.Select
    Selection.Delete
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.ThreeD
    .BevelTopType = msoBevelCircle
    .BevelTopInset = 6
    .BevelTopDepth = 6
    End With
    With Selection.Format.ThreeD
    .BevelBottomType = msoBevelCircle
    .BevelBottomInset = 6
    .BevelBottomDepth = 6
    End With
    ActiveChart.ChartArea.Select
    With ActiveSheet.Shapes(1).ThreeD
    .BevelTopType = msoBevelCircle
    .BevelTopInset = 6
    .BevelTopDepth = 6
    End With
    With ActiveSheet.Shapes(1).ThreeD
    .BevelBottomType = msoBevelCircle
    .BevelBottomInset = 6
    .BevelBottomDepth = 6
    End With
    Range("G2").Select
    End Sub
     
    , Jun 28, 2013
    #1
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.