Question

我正在尝试使用Visual Basic代码修改散点图的工具提示，以便在单击各个数据点时，数据点的名称位于工具提示中，以及绘图中的x和y数据。

我已经尝试过使用：

ThisWorkbook.Worksheets("Scatter Plot").ChartObjects(1).Chart.SetSourceData Source:=ThisWorkbook.Worksheets("Sheet1").Range(col1 & ", " & col2), PlotBy:=xlColumns
ThisWorkbook.Worksheets("Scatter Plot").ChartObjects(1).Chart.SeriesCollection(1).XValues = ThisWorkbook.Worksheets("Sheet1").Range(col3)

但是当我尝试使用它时，宏会覆盖已存储在数据点中的X值数据，以便将名称添加到散点图工具提示中。有没有办法可以修改散点图的名称而不修改它们的x值或使用加载项？

Answer 1

以下代码将数据标签（数据标注）设置为范围“Sheet1！$ K $ 10：$ K $ 20”中提供的值。将此引用更改为您想要显示内容的单元格，您应该好好去。

祝你好运基督教

ThisWorkbook.Worksheets("Scatter Plot").ChartObjects(1).Chart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange.  InsertChartField msoChartFieldRange, "=Sheet1!$K$10:$K$20", 0

然后添加以下内容以正确显示它们：

 With ThisWorkbook.Worksheets("Scatter Plot").ChartObjects(1).Chart.SeriesCollection(1).
     .ShowRange = True
     .ShowCategoryName = False
     .ShowValue = False
End With

在不修改X值的情况下将名称添加到散点图（Excel 2007 VBA）

1 个答案: