Question

Excel VBA宏自动画图表 所有图表均重叠在一起了 怎么办 求大神啊！

‘代码如下：代码功能→以选中位置以下数据画图表，下一次又从增加数据开始位置画图
Sub 画图表()
x = ActiveCell.Row
Cells(x + 1, 1).Select
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
x = ActiveCell.Row
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
With ActiveChart.ChartArea '图表区长宽设置
.Width = 500
.Height = 300
End With
Set bbb = ActiveSheet.ChartObjects
With bbb
.Top = Range("D" & x + 5).Top
.Left = Range("D" & x + 5).Left
End With
With ActiveChart '设置图表的各项参数
.HasTitle = True '有图表标题
.ChartTitle.Characters.Text = Cells(x - 1, 1) & " 图表" '图表标题的文字
.Axes(xlCategory, xlPrimary).HasTitle = True '有主要横坐标标题
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "主要" '设置主要横坐标标题的文字
.Axes(xlValue, xlPrimary).HasTitle = True '有主要纵坐标标题
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "次要" '设置主要纵坐标标题的文字
End With
End Sub
就是 Set bbb = ActiveSheet.ChartObjects语句错误
该怎么改才是指向活动表格中的活动图表 而不是活动表格中的所有图表

Answer 1

试试将Set bbb = ActiveSheet.ChartObjects改为：
Set bbb = ActiveChart.Parent