这是一个美丽的案情故事，相传在笛卡尔与公主的最后一封信中，留下了一个方程式：r=a(1－sinθ），聪明的公主把方程解了出来，并画成图形，便有了这个著名的“心形线“。
这次咱们便以r=a(1－sinθ）为原型，利用Excel图表，制作更高逼格的动态表白心形图吧！
进入教程
01插入方程式
通过x、a值的变化，生成一系列有关f(x)的数据区域，取f(x)插入散点图，再利用Excel控件，控制常数a的大小，最终实现心形的变化。
对应的Excel公式如下：
f(x)=POWER(x^2,1/3)+0.9*SQRT(3.3-x^2)*SIN(a*PI()*x)用到的Excel函数有：乘幂函数POWER、平方根函数SQRT、正弦函数SIN、圆周率的近似值函数PI。
02准备数据
x取值范围[-1.81,1.81]，原因是要保证方程中的（3.3-x^2）取值为正。
在A4输入-1.81，以等差值为0.02依次增大至1.81。
B4输入转化后的Excel公式，设x=A4，a=B2（B2要加上绝对引用）
03插入散点图
选取B列数据→插入→图表→散点图→带平滑线的散点图
当修改B2的值时，可以看到图形会相应的产生变化
04美化图表
删除不必要的元素，调整形状颜色等
05添加背景文字
在单元格中输入以下文字，数字用公式等于B2
双击图表区，在设置图表区格式中，把填充颜色设置为，同时也可以把边框设置为
为了实现图表自动变化，咱们可以这样
06自动控制
在开发工具中，打开VB窗口，把以下代码复制至ThisWorkbook中，另存为启用宏的工作簿。
PublicppAsBoolean
Sub心形图()
pp=Not(pp)
Fori=0To*4
Ifpp=FalseThen
ExitSub
Else
DoEvents
[B2]=i/5/4
IfiMod1=0Then
DoEvents
EndIf
EndIf
Nexti
EndSub
07插入按钮
开发工具→插入→按钮→指定宏→选择[ThisWorkbook.心形图]→确定→鼠标拉出按钮→更改按钮名字
08心动时刻
点击按钮，心动开始，再次点击，心动结束。
加上背景图，大功告成
转载请注明：http://www.0431gb208.com/sjszjzl/3908.html
