Remove Chart Area Border - Where in Code is it Added?

I have very little knowledge of editing Visual Basic and I'm a little stuck on something: somewhere within this code (below) I am getting a chart area border showing on my graphs - but I don't want a border and cant find the coding to remove it. (I previously had Excel 03 and found this easier as I would record a macro and look at the coding to see where I needed to edit, but I can't seem to do that in 07


Could someone point out how I could remove the border please (do I need to attach a sample workbook for this?)

Many thanks in advance.

 'grab name for new chart and title
    aName = ws.Cells(iRow, 1)
    'delete old chart
    Sheets(aName).Delete
    'make new chart
    Charts.Add
    ActiveSheet.Move after:=Sheets(ActiveWorkbook.Sheets.Count)
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData _
          Source:=ws.Range(ws.Cells(4 * iRow - 11, 7), _
          ws.Cells(4 * iRow - 9, 9)), PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet, _
         Name:=aName
    With ActiveChart
        .Name = aName
        .HasTitle = True
        .ChartTitle.Characters.Text = "Average Times - 1st January to 31st March 2011" & Chr(10) & Chr(10) & Chr(10) & "Consultant- " & aName & Chr(10) & Chr(10) & "Sample Size - Adv: " & Sheets("Adv & TC Ave").Cells(iRow, 5) & Chr(10) & "Sample Size - TC: " & Sheets("Adv & TC Ave").Cells(iRow, 4) & Chr(10)
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        End With
    
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    ActiveChart.Legend.Font.Size = 12
    Selection.Position = xlTop
    ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
        HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
        ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    ActiveChart.SeriesCollection(2).DataLabels.Select
    Selection.NumberFormat = "0"
    ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
    ActiveChart.SeriesCollection(1).Select
    With ActiveChart.ChartGroups(1)
        .Overlap = -10
        .GapWidth = 100
        .HasSeriesLines = False
        .VaryByCategories = False
    End With
    
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3, _
        Degree:=1
    With Selection
        .Fill.Visible = True
        .Fill.ForeColor.SchemeColor = 24
    End With
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    Selection.Fill.Patterned Pattern:=msoPatternLightUpwardDiagonal
    With Selection
        .Fill.Visible = True
        .Fill.ForeColor.SchemeColor = 55
        .Fill.BackColor.SchemeColor = 2
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    With Selection.Interior
        .ColorIndex = 55
        .Pattern = xlSolid
    End With
    With ActiveChart
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = _
        "Average Time In Minutes"
    End With
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    With Selection.Border
        .ColorIndex = 48
        .Weight = xlHairline
        .LineStyle = xlContinuous
    End With
    With ActiveChart.SeriesCollection(2).DataLabels.Select
    Selection.NumberFormat = "0"
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.NumberFormat = "0"
    End With
    
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = 0
        .MaximumScale = 60
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.Deselect
    
    End With
    
  
    
    ActiveChart.SeriesCollection(2).DataLabels.Select
    Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.AutoScaleFont = True
    With Selection.TickLabels.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.Axes(xlValue).AxisTitle.Select
    Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.Axes(xlValue).Select
    Selection.TickLabels.AutoScaleFont = True
    With Selection.TickLabels.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.ChartTitle.Select
    Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    ActiveChart.Legend.Select
    Selection.AutoScaleFont = False
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    
    
        
    iRow = iRow + 1
Loop Until ws.Cells(iRow, 1) = ""
Application.DisplayAlerts = True



End Sub

Hi Janc,

If you can attach me a sample file, I can set it right for you

Regards,
Abi

If you can remove it manually, record a macro while you do it. Then find the equivalent code in your macro and modify it.

Regards

Hi,
The border is applied by default, so you may not see the code.

To remove the border try:

    ActiveChart.ChartArea.Select
    With Selection.Border
        .ColorIndex = xlNone
    End With

Jbentley, thank you so much, that works perfectly!

Just as an aside, you can make your code much shorter, more efficient and quicker by:

* removing all the default settings for fonts, etc
* using With ... End With instead of xxx.Select ... Selection ...
* enclosing your code in ... ScreenUpdating=False / ScreenUpdating = True

I have adjusted some, but not all, of your code in the attached, updated, workbook.

Regards

You're welcome. Thanks for the rep.

I learn as much from doing this as others benefit from it so it's a mutual gain.

Regards