Not sure about Access VBA but this does it for XL VBA. HTH. Dave
With ActiveChart 'chart name .HasTitle = True .ChartTitle.Characters.Text = "Chart Name" 'X axis name .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X-Axis" 'y-axis name .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y-Axis" End With