Excel宏散点图

Question

我试图定义一个VB宏，该宏从我的NormalLinear选项卡中的数据创建散点图。图的y值数据在一列中，x轴数据标签在另一个非连续列中（没有任何x值）。我试图保持y轴尺寸不变，因为数据是标准化的。我希望在y=0.25和y=2.5时向绘图添加可接受的y值最大和最小线，或在该范围之外添加绘图背景的不同阴影。

我得到了一个图表，但当我点击该选项卡时，它被MS Excel改变了——我发现这很奇怪，很难调试。而且，即使我将其设置为FALSE，传奇仍然会出现。我正在使用运行OSX v10.9.5和MS Office 2011的Mac。感谢您的帮助。

Public Sub aMakeplot()

Dim work_book As Workbook
Dim r As Integer
Dim chart_shape As Shape
Dim i As Long
Dim objSelection As Range, objSrcData As Range, objCategories As Range

Set work_book = Application.ActiveWorkbook
ActiveWorkbook.Sheets("NormLinear").Select

Set objChart = Charts.Add

With objChart
    ' Set its properties
    .ChartType = xlXYScatter
    .Location Where:=xlLocationAsNewSheet
    .HasTitle = True
    .ChartTitle.Text = "Sample Mean Value for all Slides "
    .HasLegend = False
    .Axes(xlValue).MinimumScale = -3
    .Axes(xlValue).MaximumScale = 3

    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Sample Descriptions"
End With

' Create a single range from the union of
' categories and selected data, and then
' update the chart.
Set objCategories = ActiveWorkbook.Sheets("NormLinear").Range("h12:h23")
Set objSelection = ActiveWorkbook.Sheets("NormLinear").Range("p12:p23")

Set objSrcData = Union(objCategories, objSelection)
objChart.SetSourceData objSrcData

ActiveWorkbook.Sheets("NormLinear").Select

End Sub

Answer 1

在Excel 2016 for Windows中，您的代码似乎对我很好。但是，在某些版本的Excel中，如果图表中没有数据，则无法处理图表标题、图例和其他元素。创建图表后立即添加数据（即，SetSourceData），然后注意所有格式设置。