基于VBA代码和控件一键实现图表的建立,可以年夜幅度提高工作效率。本教程以一键将所选区域生当作柱状图为例。
以下列数据为例。
绘制节制按钮,本教程以插入一个外形为例。
选中外形,右键菜单,选择指心猿意马宏。
单击新建按钮。
此时会跳转到VBA窗口。
在模块中复制粘贴以下代码:
Sub 矩形1_Click()
Dim rng As Range
Set rng = Selection
rng.Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
End Sub
封闭VBA窗口,回到Excel界面。
选择数据区域,点击按钮即可生当作图表。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!