Question

我有一个创建图表的代码。我想在名为“ Charts”的特定工作表上以特定位置A5：F18创建此图表。我的代码如下：

{{1}}

我无法在具有特定位置的特定工作表上创建该图表。该怎么做？

Answer 1

您可以尝试以下操作：

    With ActiveSheet.Shapes.AddChart
        With .Chart
            .ChartType = xlColumnClustered
            .SetSourceData Source:=Range("Pivot!$A$3:$E$5").Offset(i)
            .SeriesCollection(1).ApplyDataLabels
            .SeriesCollection(2).ApplyDataLabels
            .SeriesCollection(3).ApplyDataLabels
            .ShowValueFieldButtons = False
            .HasTitle = True
            .ChartTitle.Text = "Consolidated"
        End With

        .Name = "chart" & Format(i + 1, "000")
        .Top = Range("Pivot!$A$5:$F$18").Top
        .Left = Range("Pivot!$A$5:$F$18").Left
        .Width = Range("Pivot!$A$5:$F$18").Width
        .Height = Range("Pivot!$A$5:$F$18").Height
        .LockAspectRatio = msoTrue
    End With

VBA Excel在特定工作表的特定位置上创建图表

1 个答案: