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

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

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. ant
    Replies:
    2
    Views:
    93
    Ken Wright
    Jul 21, 2003
  2. Takashi Yamamoto

    HELP please - Surface plots in Excel ?

    Takashi Yamamoto, Aug 4, 2003, in forum: Excel Charting
    Replies:
    2
    Views:
    152
    Takashi Yamamoto
    Aug 4, 2003
  3. Henri

    Help with charts

    Henri, Aug 9, 2003, in forum: Excel Charting
    Replies:
    2
    Views:
    63
    Henri
    Aug 9, 2003
  4. FatherGuido
    Replies:
    4
    Views:
    109
    FatherGuido
    Sep 8, 2003
  5. John Goodman

    Help with maps

    John Goodman, Aug 25, 2003, in forum: Excel Charting
    Replies:
    1
    Views:
    81
    Tushar Mehta
    Aug 28, 2003
  6. Lynelle

    Can you please help me???

    Lynelle, Sep 2, 2003, in forum: Excel Charting
    Replies:
    2
    Views:
    69
    Jon Peltier
    Sep 2, 2003
  7. CNW

    Please Help!!!! Need help with formula.

    CNW, Sep 20, 2012, in forum: Excel Charting
    Replies:
    3
    Views:
    137
Loading...