先看效果图！

有朋友问,能不能用VBA实现极坐标绘图,输入角度和长度,直接得到图形,而且当数据变化时,图形自动改变！

当然可以,因为excel本身就能画线,那么只要确定了坐标原点,其他的都是数学问题！今天抽了半小时写了下面的小程序，学习VBA的朋友可以参考一下，虽然只有几十行代码，也许对你学习vba程序会有所启发

主要功能

1. 可指定画图最小单位长度

2. 可指定原点位置

3. 坐标输入区可直接指定线条颜色

4. 参数表更新后 图形自动更新!

自动生成极坐标射线 还可以指定颜色

代码如下

再来一个图

主要思路：将画直线功能封装成一个函数，里面是极坐标的数学转换，以一个单元格的角点原点，指定长度计算出终点坐标，调用系统绘图功能绘制这条直线，多条直线通过参数表获得，循环绘制，就得到了最终图形！

关注微信公众号 私信回复15819  即可下载本案例文件

表格定制开发服务可加微信Excel880A

关键字:excel,wps宏,vba,职场,办公