EXCEL利用VBA自由控制图表绘图区大小

用好VBA的话确实可以给你再办公室的工作效率带来质的提升。如果有人跟你说你可以用Python什么的语言处理Excel balabala的,你可以无视他了。当然python可以处理很多事情,但是EXCEL自带的作图工具也是很有优势的,对于非计算机人员来讲,EXCEL也是画图的主要途径。

最近写东西需要画图,画完以后突然发现绘图区域的大小是很难给弄的差不多大小的,所以在网上搜集了一些资料,写了一个VBA宏,然后通过执行宏来控制绘图区域大小。

作为新版EXCEL 2019,系统出于安全考虑,开发模式是不自动开启的,读者可以到网上搜一下如何开启宏及”开发工具“选项。

选择第一项,打开VBA编辑器,输入以下代码:

Sub PIC_ADJUST()
With ActiveChart
Selection.Height = 280
Selection.Width = 470
End With
ActiveChart.PlotArea.Select
Selection.Top = 0
Selection.Width = 450
Selection.Height = 250
Selection.Left = 20
End Sub

这是最简单调整绘图区和图表区大小的程序,当然如果要对曲线颜色、曲线样式等更为细节的东西进行调节,VBA也是可以实现的,然后对EXCEL的对象属性了解清楚点,不断堆代码就可以了。最后关掉VBA的窗口,点第一张图的第二个图标--宏,然后选中刚才写的宏明,执行就可以了。

希望可以帮助到大家。

  • 2
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
Excel VBA中,可以使用以下代码生成任意图表: 首先,需要创建一个新的Chart对象,并将其与Excel工作表上的一个图表域关联。代码示例如下: ``` Dim chartObj As ChartObject Set chartObj = Worksheets("Sheet1").ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=250) ``` 接下来,可以定义生成图表的数据范围。假设要生成的图表数据位于A1到B10单元格范围内,代码示例如下: ``` Dim chartData As Range Set chartData = Worksheets("Sheet1").Range("A1:B10") ``` 然后,可以使用Chart对象的ChartType属性来指定要生成的图表类型。例如,要生成一个柱状图,可以使用以下代码: ``` chartObj.Chart.ChartType = xlColumnClustered ``` 接下来,可以使用Chart对象的SetSourceData方法将数据范围与图表相关联。代码示例如下: ``` chartObj.Chart.SetSourceData Source:=chartData ``` 除了上述基本设置外,还可以进一步自定义图表的样式、布局、图例等。例如,可以使用Chart对象的ChartTitle属性设置图表的标题: ``` chartObj.Chart.HasTitle = True chartObj.Chart.ChartTitle.Text = "Sales Data" ``` 最后,可以使用Chart对象的Export方法将生成的图表保存为图片或者将其复制到剪贴板。例如,可以使用以下代码将图表保存为图片文件: ``` chartObj.Chart.Export "C:\Chart.png", "PNG" ``` 以上是一个简单的示例,可以根据具体需要进行进一步的设置和调整。通过使用Excel VBA中的Chart对象和相关属性、方法,可以生成各种类型的图表,并实现对图表的自定义设置和保存操作。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值