excel vba 选定区域绘制折线图
时间: 2023-05-22 17:04:27 浏览: 363
可以使用以下代码实现:
Sub DrawLineChart()
Dim chartRange As Range
Dim chartObject As ChartObject
Set chartRange = Selection
Set chartObject = ActiveSheet.ChartObjects.Add(Left:=chartRange.Left, Top:=chartRange.Top, Width:=500, Height:=300)
With chartObject.Chart
.ChartType = xlLine
.SetSourceData chartRange
.HasLegend = False
.ChartTitle.Text = "折线图"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "X轴"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "Y轴"
End With
End Sub
这段代码可以选定一个区域,并且在这个区域中绘制一个折线图,并且添加了 X 轴和 Y 轴的标题。
注意:这段代码仅供参考,如果您需要更复杂的图形功能,可以使用更高级的 Excel VBA 代码来实现。
祝您使用愉快!