ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E文精选 > 图表图形 > 利用散点图让文字移动

利用散点图让文字移动

作者:绿色风 分类: 时间:2022-08-17 浏览:143
楼主
海洋之星
利用散点图让文字移动,效果如下图所示:

 
此图制用要点:数据源区域的创建,角度要设置为间隔相等的角度值,才能使散点图绘制为一个椭圆,具体步骤为:


第一部分         构建数据区域

步骤一     A2B2单元格中分别录入090

步骤二     A3单元格录入公式:
  1. =A2+15


,按【Enter】键,向右复制公式至B3单元格,然后拖动B3右下角的填充手柄向下至B23单元格。



步骤三  在A24单元格中录入公式:
  1. =IF(A22=300,330,A2-30)




步骤四  在B24单元格中录入公式:
  1. =IF(B22=390,420,B2-30)




步骤五  在C2单元格中输入公式:
  1. =SIN(A2*PI()/180)


按【Enter】键,向右复制公式至D2单元格,然后双击B3右下角的填充手柄。



通过以上五个步骤即可完成数据区域的构造,如下图所示:

 
第二部分    插入“散点图”
步骤一  单击【插入】选项卡,在【图表】命令组中单击【散点图】下拉三角按钮,从下拉列表中选择“带直线和数据标记的散点图”子图表类型。

 

步骤二     选中图表,在【图表工具】上选项卡中,单击【部局】下选项卡,在【在当前所选内容】命令组中单击【绘图区】下拉三角按钮,选择【水平(值)轴】,单击【设置所选内容格式】按钮,打开对话框,单击左边【坐标轴选项】,进行如下图所示的设置;同时将:【填充】和【线条颜色】均设置为“无”,单击【关闭】按钮。

 
步骤三     按步骤二操作,对【垂直(值)轴】进行相同的设置,即可得到如下所示效果:

 

步骤三     选中图表区网格线,右击,在弹出的快捷菜单中,选择【设置网格线格式】对话框,将【线条颜色】设置为“无线条”

 
步骤四     删除【图例】,即可得到如下图所示效果:

 

                              
步骤五     右击图表中的数据系列,从弹出的快捷菜单选择【设置数据系列格式】,在弹出的【设置数据系列格式】对话框中,单击【线条颜色】标签,在【线条颜色】选项卡中单击【实线】单选按钮,并从【颜色】下拉列表中选择“绿”选项。

 
该帖已经同步到 海洋之星的微博
2楼
海洋之星
第三部        绘制数据点形状
步骤一        单击【插入】选项卡,在【插图】命令组中单击【形状】下拉三角按钮,选择“五角星”基本形状,在工作表中绘制与散点图数据点个数相同数量的五角星,并将形状大小依次设置为递减,再在最前面的几个形状上输入任意的文字:E、X、C、E、L、T、I、P。
步骤二        选中第一个形状,按下快捷键<Ctrl+C>,然后单击散点图中的第一个数据点,再按下快捷键<Ctrl+V>,将五角星粘贴为数据标记。如下图所示:

 


步骤三     使用相同的方法将其余的五角星依次粘贴到数据点上,此时得如下图所示的效果

 


3楼
海洋之星
第四部分        实现自滚动效果
步骤一        单击【开发工具】选项卡,在【代码】命令组中单击【Visual Basic】按钮,打开代码编辑窗口,执行菜单栏中的【插入】→【模块】命令,在右侧代码编辑窗口中输入如图所示代码,保存后关闭窗口。

 
代码:



  1. Option ExplicitSub 动()
  2. If Cells(2, 1) < 331 Or Cells(2, 2) < 431 Then
  3. Cells(2, 1) = Cells(2, 1) + 30
  4. Cells(2, 2) = Cells(2, 2) + 30
  5. Else
  6. Cells(2, 1) = 0
  7. Cells(2, 2) = 90
  8. End If
  9. Application.OnTime Now() + TimeValue("00:00:01"), "动"
  10. End Sub
  11. Sub 停止()
  12. On Error Resume Next
  13. Application.OnTime Now() + TimeValue("00:00:01"), "动", , False
  14. End Sub


步骤二     单击【开发工具】选项卡,在【控件】命令组中单击【插入】下三角控件,从下拉列表中的“表单控件”选项区域中选择“命令按钮“控件。

步骤三  在图表右下角绘制两个命令按钮,分别输入文字“开始”和“停止”。
 



步骤四  右击“开始”按钮,从弹出的快捷菜单中执行【指定宏】命令。

步骤五  在弹出的【指定宏】对话框中选择对应的“动”,然后单击【确定】按钮。用似的方法为“停止”按钮指定“停止”。
 



步骤六     将绘图区填充为浅蓝色,即可完成全部制作。
4楼
亡者天下
学习一下,怎么还没有完稿吗?

5楼
lrlxxqxa
函数、图表、vba都上了,海洋厉害
6楼
传递
看着好玩,也想做一个,太难了
7楼
eliane_lei
老哥 你以为简单就能做的吧
8楼
sjz76meizi
海洋,太厉害了
9楼
dgxsdr
这个很强大,学习散点图!
10楼
TokiGi
厉害
11楼
wangez
佩服!谢谢!
12楼
take818283
看着挺不错,对我来说太复杂
13楼
笨笨猪123ok
很漂亮
14楼
hylees
哇,这个好炫呀
15楼
飞鱼不语
哇,好强大,膜拜
16楼
zcx0406
高人啊!
17楼
zcx0406
高人啊!
18楼
Jessie6387
做这个有什么用处呢,想不出来
19楼
对面看好了
呵呵,谢谢了,我做了个,优化了一些操作,谢谢版主了!
20楼
芐雨
#利用散点图让文字移动#
21楼
icenotcool



22楼
chocolate_Dora
很强大!

要学会自己运用,难!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap