在Excel中,在每次运行宏来绘制图表时,在预定义位置绘制图表,可以通过以下步骤实现:
Dim chartRange As Range
Set chartRange = Worksheets("Sheet1").Range("A1:D10") '将"A1:D10"替换为你的目标位置范围
这里假设你的目标位置在"Sheet1"工作表中的"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"替换为你希望图表显示的位置
这里假设你希望图表显示在"Sheet1"工作表中的"E1"单元格位置上,并设置图表的宽度为400,高度为300。
chartObj.Chart.SetSourceData Source:=chartRange
这将把之前定义的图表目标范围与图表对象的数据源关联起来。
With chartObj.Chart
.ChartType = xlColumnClustered '将图表类型替换为你想要的类型
.HasTitle = True
.ChartTitle.Text = "图表标题" '将"图表标题"替换为你想要的标题
End With
通过以上步骤,你可以在每次运行宏时,在Excel中的预定义位置绘制图表。请根据具体情况修改代码中的目标位置、图表显示位置、图表类型和标题等参数。希望对你有帮助!
领取专属 10元无门槛券
手把手带您无忧上云