VBA自动生成嵌入式图表时如何设置标题及X/Y坐标轴名称

修改后的完整VBA代码 #

Sub create_embedded_chart()
    Dim oChartObj As ChartObject
    ' 嵌入式图表创建，位置、宽高可根据需要自行调整参数
    Set oChartObj = ActiveSheet.ChartObjects.Add(Top:=0, Left:=0, Width:=400, Height:=300)
    ' 设置图表数据源
    oChartObj.Chart.SetSourceData Sheets("Tracedata").Range("A1:C45")
    
    ' 设置图表标题
    oChartObj.Chart.HasTitle = True
    oChartObj.Chart.ChartTitle.Text = "matrix graph"
    
    ' 设置X轴（分类轴）标题
    oChartObj.Chart.Axes(xlCategory).HasTitle = True
    oChartObj.Chart.Axes(xlCategory).AxisTitle.Text = "subsection"
    
    ' 设置Y轴（数值轴）标题
    oChartObj.Chart.Axes(xlValue).HasTitle = True
    oChartObj.Chart.Axes(xlValue).AxisTitle.Text = "count"
End Sub

配置说明 #

• 代码在原有逻辑基础上新增了标题属性配置：先开启对应元素的标题显示开关HasTitle = True，再为标题文本属性赋值即可完成自定义命名
• 原代码中图表宽高仅设置为50，示例中调整为了更适合查看的400*300，可根据实际需求修改Add方法中的宽高、上下边距、左边距参数
• 若运行时提示xlCategory/xlValue常量未定义，可直接替换为对应枚举值：xlCategory替换为2，xlValue替换为-4168即可

内容的提问来源于stack exchange，提问作者Bhadri