爱你一万年_教材.xls

图表 爱你一万年 制作教程 角度角度X轴 给定角度之正弦值 Y轴 给定角度之正弦值 301200 500000000000000 86602540378444 451350 707106781186550 70710678118655 601500 866025403784440 50000000000000 751650 965925826289070 25881904510252 901801 000000000000000 00000000000000 1051950 96592582628907 0 25881904510252 1202100 86602540378444 0 50000000000000 1352250 70710678118655 0 70710678118655 1502400 50000000000000 0 86602540378444 1652550 25881904510252 0 96592582628907 1802700 00000000000000 1 00000000000000 195285 0 25881904510252 0 96592582628907 210300 0 50000000000000 0 86602540378444 225315 0 70710678118655 0 70710678118655 240330 0 86602540378444 0 50000000000000 255345 0 96592582628907 0 25881904510252 270360 1 000000000000000 00000000000000 285375 0 965925826289070 25881904510252 300390 0 866025403784440 50000000000000 315405 0 707106781186550 70710678118655 330420 0 500000000000000 86602540378444 345435 0 258819045102520 96592582628907 0900 000000000000001 00000000000000 第一步 输入角度值 X轴为0 Y轴为90 其后之单元格设定为前一格 基础上加15 视你的需求 可以将15改为其它数据 全面完成后看看 效果如何变化 各位读者自行领会吧 然后用SIN求其正弦值 并将所 第二步 绘制图表 以E F两列数据绘制散点图 注意去掉X轴 Y轴 及网格线 标题 图例 第三步 修饰图表 对图表点右键 选择 图表区格式 将边框和 区域设置为 无 再对图表区点右键 选择 图表区格式 将边 框和区域设置为 无 注意 两次是不一样的 此时图表已变为透 明的 最后对图表数据点右键 出现数据系列格式 选择图案 线型 自定义 平滑线 第四步 制作红 心 点自选图形之心形 将边框线和填充色均调 为红色 然后复制多份 份数与图表点数一致 然后对前五个红心加 上 爱你一万年 字样 并调节为逐渐缩小 第五步 为图表加 心 点击第一个红心 复制 再点击图表第一 个点 注意需要点两次 当出现单独一个点被选中时 再点粘贴 然 后将其它心形逐次贴上 第六步 画龙点精 编制程序 使图表动起来 程式如下 复制到VBE窗口即可 Sub 动 If Cells 4 3 331 Or Cells 4 4 431 Then Cells 4 3 Cells 4 3 30 Cells 4 4 Cells 4 4 30 Else Cells 4 3 0 Cells 4 4 90 End If Application OnTime Now TimeValue 00 00 01 动 End Sub Sub 停止 On Error Resume Next Application OnTime Now TimeValue 00 00 01 动 False End Sub 再新建两个窗体按钮 新建时程序自提示你选择宏 请做开始 停止之连接 使按 钮可以支配宏命令 大功告成 爱你一万年 andysky提供 第六步 画龙点精 编制程序 使图表动起来 程式如下 复制到VBE窗口即可 Sub 动 If Cells 4 3 331 Or Cells 4 4 431 Then Cells 4 3 Cells 4 3 30 Cells 4 4 Cells 4 4 30 Else Cells 4 3 0 Cells 4 4 90 End If Application OnTime Now TimeValue 00 00 01 动 End Sub Sub 停止 On Error Resume Next Application OnTime Now TimeValue 00 00 01 动 False End Sub 再新建两个窗体按钮 新建时程序自提示你选择宏 请做开始 停止之连接 使按 钮可以支配宏命令 大功告成 第六步 画龙点精 编制程序 使图表动起来 程式如下 复制到VBE窗口即可 Sub 动 If Cells 4 3 331 Or Cells 4 4 431 Then Cells 4 3 Cells 4 3 30 Cells 4 4 Cells 4 4 30 Else Cells 4 3 0 Cells 4 4 90 End If Application OnTime Now TimeValue 00 00 01 动 End Sub Sub 停止 On Error Resume Next Application OnTime Now TimeValue 00 00 01 动 False End Sub 再新建两个窗体按钮 新建时程序自提示你选择宏 请做开始 停止之连接 使按 钮可以支配宏命令 大功告成 第六步 画龙点精 编制程序 使图表动起来 程式如下 复制到VBE窗口即可 Sub 动 If Cells 4 3 331 Or Cells 4 4 431 Then Cells 4 3 Cells 4 3 30 Cells 4 4 Cells 4 4 30 Else Cells 4 3 0 Cells 4 4 90 End If Application OnTime Now TimeValue 00 00 01 动 End Sub Sub 停止 On E