如何在每次运行宏来绘制图表时，在excel中的预定义位置绘制图表？

Dim chartRange As Range
Set chartRange = Worksheets("Sheet1").Range("A1:D10") '将"A1:D10"替换为你的目标位置范围

Dim chartObj As ChartObject
Set chartObj = Worksheets("Sheet1").ChartObjects.Add(Left:=Range("E1").Left, Width:=400, Top:=Range("E1").Top, Height:=300) '将"E1"替换为你希望图表显示的位置

chartObj.Chart.SetSourceData Source:=chartRange

With chartObj.Chart
    .ChartType = xlColumnClustered '将图表类型替换为你想要的类型
    .HasTitle = True
    .ChartTitle.Text = "图表标题" '将"图表标题"替换为你想要的标题
End With