为 MS 图表 VB.NET 设置字体 - VBA

在 VB.NET 中创建 MS 图表并设置字体，可以通过以下步骤实现：

1. 创建 MS 图表对象。可以使用下面的代码（仅作示例，具体参数需要根据实际情况调整）：

Dim cht As New Microsoft.Office.Interop.Word.Chart
cht.ChartType = Microsoft.Office.Interop.Word.WdChartType.wdChartTypeColumnStacked

2. 获取图表区域（ChartArea）对象，并设置字体样式。可以使用下面的代码：

Dim chartArea As Microsoft.Office.Interop.Word.ChartArea = cht.Chart.ChartArea
chartArea.Font.Name = "Segoe UI"
chartArea.Font.Size = 10

此处将字体设置为“Segoe UI”，大小设置为10。

3. 获取坐标轴（Axes）对象，并设置轴标签的字体样式。可以使用以下代码：

Dim categoryAxis As Microsoft.Office.Interop.Word.Axis = cht.Chart.Axes(Microsoft.Office.Interop.Word.XlAxisType.xlCategory)
categoryAxis.TickLabels.Font.Name = "Segoe UI"
categoryAxis.TickLabels.Font.Size = 10
 
Dim valueAxis As Microsoft.Office.Interop.Word.Axis = cht.Chart.Axes(Microsoft.Office.Interop.Word.XlAxisType.xlValue)
valueAxis.TickLabels.Font.Name = "Segoe UI"
valueAxis.TickLabels.Font.Size = 10

这里将类别轴（Category Axis）、数值轴（Value Axis）的标签字体设置为“Segoe UI”，大小为10。

4. 设置图例（Legend）字体样式。可以使用以下代码：

Dim legend As Microsoft.Office.Interop.Word.Legend = cht.Chart.Legend
legend.Font.Name = "Segoe UI"
legend.Font.Size = 10

这样就完成了设置。可以根据自己的需要调整字体样式、大小等参数。

以上就是在 VB.NET 中为 MS 图表设置字体的方法。