如何用vba给excel**画图

时间：2021.08.23 发布人：悦YUE宁
如何用vba给excel**画图

已解决问题

谷歌悦YUE宁用户在2021.08.23提交了关于“神话如何用vba给excel**画图”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-01-19T09:19:27。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：匿名用户  

不是有录制宏的功能吗？

先建一个简单的图，用宏录制，然后修改用于大**

以下是我录制的

Sub

绘折线图()

Charts.Add

ActiveCh来自art.ChartType

=

xlLine

ActiveChart.SetSourceData

Source:=Sheets("Sheet1").Range("A5:G5"),

PlotBy:=

_

xlRow问答s

ActiveChart.SeriesCo负记着希此采市举llection(1).XValues

=

"=Sheet1!R9C1:R9C7"

Acti几蛋模称继模灯杆尽veChart.Location

Whe落压轴充乙白械门re:=xlLocationAsObject,

Name:="Sheet1"

End

Sub

A5:G5为**区域

R9C1:R9C7

表示X轴标志所在单元格区域

第9行第1列(即A9)湖降六田到第9行第7列(即G9)

如果不需要可以把这行删除，得到，然后横坐标就自动123456

Sub

绘折线图()

Charts.Add

A急象画搞航职压半席ctiveChart.ChartType

=

xlLine

ActiveChart.SetS请理看相屋二掌房坏记ourceData

Source:=Sheets("Sheet1").Range调波亮尽游营("A5:G5"),

PlotBy:=

_

xlRows

ActiveChart.Location

Where:=xlLocationAsObject,

Name:="Sheet给镇云实1"

End

Sub