在单独的工作表中使用For循环创建VBA图表时出现错误91

是因为对象变量没有被正确地设置或引用。错误91通常发生在以下情况下：

对象变量未被初始化：在使用对象变量之前，需要使用Set语句将其初始化为一个有效的对象。例如，如果要在工作表上创建图表，需要先将工作表对象赋值给一个变量，然后使用该变量来引用工作表。
对象变量引用了一个不存在的对象：在使用对象变量之前，需要确保该对象存在。如果对象不存在或已被删除，那么引用该对象将导致错误91。在使用For循环创建图表时，需要确保循环变量在每次迭代时引用的工作表存在。

以下是解决错误91的一些常见方法：

确保对象变量被正确初始化：
确保对象变量被正确初始化：
在使用对象变量之前，检查对象是否存在：
在使用对象变量之前，检查对象是否存在：
确保循环变量在每次迭代时引用的工作表存在：
确保循环变量在每次迭代时引用的工作表存在：

对于VBA图表的创建，可以使用以下代码示例：

Sub CreateChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将工作表对象赋值给变量
    
    ' 创建图表对象
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    
    ' 设置图表数据源
    cht.Chart.SetSourceData Source:=ws.Range("A1:B10")
    
    ' 设置图表类型
    cht.Chart.ChartType = xlColumnClustered
    
    ' 设置图表标题
    cht.Chart.HasTitle = True
    cht.Chart.ChartTitle.Text = "Sales Data"
    
    ' 设置图表轴标签
    cht.Chart.Axes(xlCategory).HasTitle = True
    cht.Chart.Axes(xlCategory).AxisTitle.Text = "Month"
    cht.Chart.Axes(xlValue).HasTitle = True
    cht.Chart.Axes(xlValue).AxisTitle.Text = "Sales"
    
    ' 设置图表系列名称
    cht.Chart.SeriesCollection(1).Name = "Sales"
    
    ' 设置图表系列颜色
    cht.Chart.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
    
    ' 设置图表系列标签
    cht.Chart.SeriesCollection(1).HasDataLabels = True
    
    ' 设置图表图例
    cht.Chart.HasLegend = True
    
    ' 设置图表位置
    cht.Top = 100
    cht.Left = 100
    
    ' 设置图表大小
    cht.Width = 400
    cht.Height = 300
End Sub

这段代码演示了如何在工作表上创建一个柱状图，并设置图表的数据源、类型、标题、轴标签、系列名称、系列颜色、系列标签、图例、位置和大小。

腾讯云提供了一系列云计算相关的产品，包括云服务器、云数据库、云存储等。具体推荐的产品和产品介绍链接地址可以根据实际需求和使用场景来选择。