Chart Types

objChart.ChartType = xlLine  'automatically changes objAxisBetweenCategories = True  

objChart.ApplyCustomType(charttype, typename) 
objChart.ApplyCustomType(xlChartType.xl3DLine 

objChart.ApplyCustomType(xlChartGallery.xlBuiltIn, "Floating Bars") 

objSeries.ApplyCustomType( ) 

ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="My Bar Chart" 
ActiveChart.ApplyCustomType (ChartType:=xlUserDefines, TypeName:="MyChart") 
ActiveSheet.ChartObjects("Chart 4").ChartType = xlLine 

sets the default chart type added when programmatically adding a chart.
The FormatName parameter can be a built-in chart type or a custom chart type name.

Application.SetDefaultChart 

ActiveChart.ChartGroups(1).Overlap = 100 

ActiveChart.GapDepth = 50 

ActiveChart.ChartGroup(1).GapWidth = 50 

ActiveChart.DepthPercent = 50 

ActiveChart.ChartGroups(1).HasSeriesLine = False 

ActiveChart.ChartGroups(1).VaryByCategories = False 

Chart Types - xlLine

SS

objSeries.Format.Line.Visible = msoTrue 
objSeries.MarkerBackgroundColor = -1 
objSeries.MarkerBackgroundColorIndex = 2 
objSeries.MarkerForegroundColor = -1 
objSeries.MarkerForegroundColorIndex = 2 
objSeries.MarkerStyle = xlMarkerStyleNone 

xlLineMarkers (with line + markers)

This type of chart may or maynot have a line displayed
SS

objSeries.Format.Line.Visible = msoTrue 

xlLineMarkers (just markers)

SS

objSeries.Format.Line.Visible = msoFalse 

Application.SetDefaultChart FormatName:="MonthlySales" 
Application.SetDefaultChart FormatName:= xlChartType.xl3DArea ?? 

Dim objRange As Excel.Range 
Dim objChart As Excel.Chart 
Dim objChartSeries As Excel.Series 

    'this has been removed

    ActiveChart.SetDefaultChart (XlChartGallery.xlAnyGallery) 
    ActiveChart.SetDefaultChart (XlChartGallery.xlBuiltIn) 
   ActiveChart.SetDefaultChart (XlChartGallery.xlUserDefined) 

    ActiveChart.ApplyChartTemplate ("filename.crtx") 
    
    
    ActiveChart.ApplyCustomType (xl3DAreaStacked) 
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="Line - Column on 2 Axes" 
    
    'investigate this further
    'ActiveChart.ApplyCustomType(ChartType:=    xlChartGallery.xlBuiltIn, TypeName:="my custom name")


    Dim lcount As Long 
    objRange = objChartSeries.XValues 
    lcount = objRange.Count 

    'this is not valid ?
    'objChart.Chart.Paste Type:=xlFormats
    
    '??
    objChart.Axes(XlAxisType.xlCategory, XlAxisGroup.xlPrimary).CategoryType 

    'this works in 2003 ?
    ActiveChart.ChartGroups (1) 
    
    'you cannot rely on the default property
    ActiveChart.ChartGroups(1).SeriesCollection (1) 
    ActiveChart.ChartGroups(1).SeriesCollection.Item (1) 

    'does not work ?
    Dim sngValues As Single 
    sngValues = ActiveChart.ChartGroups(1).SeriesCollection(1).XValues.Count 

    'none of these are valid
    'ActiveChart.BarGroups()
    'ActiveChart.ColumnGroups()
    'ActiveChart.PieGroups()


    'Depreciated
    'ChartFillFormat
    'ChartColorFormat
    
    'Properties depreciated include
    'Border
    'Caption
    'Characters
    'Fill
    'Font
    'HorizontalAlignment
    'Interior
    'Orientation
    'ReadingOrder
    'Shadow
    'VerticalAlignment
    
    'additions in 2007
    ActiveChart.ApplyLayout (2) 
    ActiveChart.ChartStyle = 10 
    ActiveChart.SetElement (msoElementLegendBottom) 
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisBillions) 
    ActiveChart.ChartArea.Format.Fill.ForeColor.RGB = RGB(12, 12, 12) 
    ActiveChart.AutoScaling = False 
    ActiveChart.BarShape = xlConeToMax 
    ActiveChart.Perspective = 60 
    
    Worksheets(1).ChartObjects(1).Chart.ProtectSelection = True 

    ActiveChart.ClearToMatchStyle 

    ActiveChart.ChartGroups(1).SeriesCollection(1).Interior.TintAndShade = 3