用VBA来指定图表中横坐标/纵坐标/数据点/图例的文字大小

时　间:2026-05-25 17:25:03
作　者:张志   ID：8  城市：上海  QQ：3059255
摘　要:设置图表中的文字大小
正　文:

问：Access的窗体上有一个图形控件（ Microsoft Graph Chart 控件），名称叫fxDay，如何用VBA来指定该图表中横坐标、纵坐标、数据点、图例的文字大小为11？

答：可以用以下代码来进行设置：

Private Sub SetChartFontSize()
    Dim cht As Object            ' Microsoft Graph Chart 对象
    Dim ser As Object            ' 数据系列
    
    ' 获取图表控件内的 Chart 对象
    Set cht = Me.fxDay.Object
    
    ' 1. 设置横坐标（分类轴）刻度标签字体大小
    '    Axes(1) 对应 xlCategory
    cht.Axes(1).TickLabels.Font.Size = 11
    
    ' 2. 设置纵坐标（数值轴）刻度标签字体大小
    '    Axes(2) 对应 xlValue
    cht.Axes(2).TickLabels.Font.Size = 11
    
    ' 3. 设置图例字体大小（前提是图表已显示图例）
    If cht.HasLegend Then
        cht.Legend.Font.Size = 11
    End If
    
    ' 4. 设置数据点标签字体大小
    '    遍历所有系列，如果系列已显示数据标签则修改其大小
    For Each ser In cht.SeriesCollection
        If ser.HasDataLabels Then
            ser.DataLabels.Font.Size = 11
        Else
            ' 若原本没有数据标签，可取消下面两行的注释来添加并设置大小
            ' ser.HasDataLabels = True
            ' ser.DataLabels.Font.Size = 11
        End If
    Next ser
    
    ' 刷新图表显示
    cht.Refresh
    
    Set ser = Nothing
    Set cht = Nothing
End Sub