Excel 如何设置或修改用户表单中嵌入的图表的字体大小

我正在编写一个userform来显示一个包含存储在一系列单元格中的数据的图形，但是当图形显示它太小而无法读取时，它会显示另一个带有“series 2”的标签，即使我没有添加它

我尝试更改图像框的属性，从“0 FmPictureSizeModelClip”更改为fmPictureModeZoom，但这只会使其模糊，我尝试修改代码添加：

MyChart.Parent.Width = 1200
MyChart.Parent.Height = 780

但它只会使条变大，标签和标题变小，并且无法阅读

Set MyChart = ActiveSheet.Shapes.AddChart(xlColumnClustered).Chart

   MyChart.Parent.Width = 1200
   MyChart.Parent.Height = 780
   MyChart.SeriesCollection.NewSeries
   MyChart.SeriesCollection(1).Name = ChartName
   MyChart.SeriesCollection(1).Values = ChartData
   MyChart.SeriesCollection(1).XValues = ActiveSheet.Range("K32:K43")

这是添加以下内容后的用户表单：

     MyChart.Parent.Width = 1200
     MyChart.Parent.Height = 780

这是在它之前，你可能会看到文本难以辨认，屏幕截图中的图表名称消失了，但我更正了代码，现在它出现了，但与图表中的其他文本一样小

如果需要补充信息，我很乐意提供，

---

非常感谢您的帮助。

我找到了答案

    MyChart.Axes(xlCategory).TickLabels.Font.Size = 20
    MyChart.Axes(xlValue).TickLabels.Font.Size = 20
    MyChart.Legend.Font.Size = 20
    MyChart.ChartTitle.Font.Size=24

---

我相信你要找的是MyChart.FullSeriesCollection（1）。Points（1）.DataLabel.Format.TextFrame2.TextRange.Font.Size。感谢您的回答，您建议我将此代码放在何处，或者如何实现它？我刚刚粘贴到代码中，出现编译错误。您需要给它一个值--ex

MyChart.FullSeriesCollection（1）。点（1）.DataLabel.Format.TextFrame2.TextRange.Font.Size=10

。我还假设您只需要放大系列标签。图表在VBA中有点奇怪，您可能需要尝试记录字体大小的更改，以便在编译代码时了解如何处理每一个更改。它会给我一个编译错误“1004”无效参数