新工作表中的excel vba多个图表

Question

我在准备宏时遇到问题，该宏会在工作表中选择 3 个范围，然后从该数据中创建包含 3 个图表的新工作表。我该如何准备一份？ 这是我目前拥有但不起作用的内容：ActiveChart.Location Where:="Inwestycje wykresy" 突出显示并出现“类型不匹配”错误。 我是否还必须包括图表尺寸和位置？ 这是我的代码：

Sub InwestycjeWykresy()
Range("B3:N5").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Inwestycje").Range("B3:N5"), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Inwestycje wykresy"
With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Alerty"
End With
Worksheets("Inwestycje").Activate
Range("B6:N7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Inwestycje").Range("B6:N7"), PlotBy:=xlRows
ActiveChart.Location Where:="Inwestycje wykresy"
With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Eskalacje"
End With
Worksheets("Inwestycje").Activate
Range("B8:N10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Inwestycje").Range("B8:N10"), PlotBy:=xlRows
ActiveChart.Location Where:="Inwestycje wykresy"
With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Nadzor"
End With
End Sub

Answer 1

第二次和第三次尝试添加到现有工作表时，您需要执行ActiveChart.Location Where:=xlLocationAsObject, Name:="Inwestycje wykresy"

我没有尝试过，但this 暗示这将是正确的语法。

---

在您进一步围绕定位的 cmets 中，您将需要以下内容：

With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Alerty"
    With .Parent
        .Height = 325
        .Width = 500
        .Top = 100
        .Left = 100
    End With
End With