Excel VBA：将散点图作为对象添加到工作表

Question

我希望创建一个散点图，按下按钮，在Sheet 1中创建散点图，并使用A2:A11作为x值和{{1} } B2:B11值。

<击>

使用底部的代码，我可以根据y中的值创建散点图（从here得到）。它很接近，但不完全是我正在寻找的。我怎样才能调整它以满足我的需求？

我现在设置了它，所以根据我想要的值制作图表，但我不能让它在A1:B3中显示为对象。我该怎么做呢？ Sheet 1似乎不起作用。

.Location xlLocationAsObject

Answer 1

您编写的代码会将图表添加为Chart Sheet，而不是Worksheet上的图表

试试这个：

替换

ActiveWorkbook.Charts.Add
With ActiveWorkbook.ActiveChart

与

Dim sh As Worksheet
Dim chrt As Chart

Set sh = ActiveWorkbook.Worksheets("Sheet1")
Set chrt = sh.Shapes.AddChart.Chart
With chrt

然后你可以用

控制它的位置和大小

    .ChartArea.Left
    .ChartArea.Top 
    .ChartArea.Height
    .ChartArea.Width 

Answer 2

使用Chart.Location时，您需要指定位置：

.Location Where:=xlLocationAsObject, Name:="Sheet1"