让你的图表动起来，康忙北鼻，来次够！
水粉(桦树林)
先做一道数学题
已知三角形的两条边长为a和c,顶点为A,B,C 如下图所示，假设A点的坐标为（0,0），c边与X轴的夹角为Φ，你能求出B、C点的坐标吗？
下面的图示已给出计算方法，如果看不懂，就去找本书，好好复习复习吧。
1建模
我们在EXCEL中建立模型，假设c边为30，a边为120，角度为30度，
把角度转换成弧度
B4=B3*PI()/180
有没有看不懂的？360度等于2π弧度。
PI()=π=3.1415926......
B点的X坐标
B8=B1*COS(B4)
B点的Y坐标
B8=B1*SIN(B4)
C点的X坐标
D8=POWER(B2^2-C9^2,0.5)+C8
C点的Y坐标为0
2构图
选中A8：D9区域，插入带折线的散点图,记住是散点图，如图示：
设置X坐标轴最小值为-40，最大值为180，主要刻度为10
设置Y坐标轴最小值为-40，最大值为40
删除系列名称和标题，调整宽和高的刻度尽量相等（使主要刻度线交叉的格为正方形），如下图所示：
选中：用鼠点击线段，再点击C点，右键设置数据点格式，将数据标记设置为下图所示：类型为正方形，大小适当增大。
3代码
我们按ALT+F11打开VBA编辑器
插入模块
在模块中输入下列代码：
Option Explicit
Dim flag
Sub 开始()
flag = True
Do While flag = True
DoEvents
Range("b3") =Range("b3") + 1
Loop
End Sub
Sub 结束()
flag = False
End Sub
在EXCEL中插入按钮（开发工具、插入、表单控件，按钮，点击EXCEL空白处）
为按钮指定宏，选择“开始”确定
右键点击按钮，修改按钮名称为“开始”
同上，再插入一按钮，指定宏为“结束”，修改按钮名称为结束。
3运行程序
点击开始按钮，图形是不是动起来了，像不像一个曲轴机构，点击结束按钮，图形暂停。你学会了吗？
代码部分如有不明白，欢迎交流！
3总结
1、三角函数：
正弦函数：SIN(弧度)
余弦函数：COS(弧度)
π：PI()
2、散点图做法
3、VBA编辑器，模块
4、循环语句：
DO WHILE 条件为真时
......
LOOP
5、DOEVENTS
DoEvents 将控制切换到操作环境内核。允许程序在运行过程中执行其他操作。本实例
就是在开始程序中的循环语句中嵌入DOEVENTS，以便相应结束按钮的动作，否则开始程序就是个死循环，无法停止。
6、公共变量
如果一个变量被多个过程调用，则为公共变量，需在模块的开始位置声明变量：如本模块开始就声明了变量：DIM FLAG
FLAG是一个公共变量，在开始和结束两个过程中都用到，在开始过程中先赋予FLAG为TRUE,然后当FLAG为TRUE时，执行循环动作，弧度每次加一，当点击结束按钮时，FLAG被赋值FALSE,开始过程的循环语句停止执行。
7、声明变量: DIM 变量名称
更多VBA文章：
END