admin 管理员组文章数量: 1086019
2024年3月19日发(作者：特斯拉事件的看法)
Excel VBA编程 典型实例——设计3D动态图表
通常情况下，用户看到的图表都是静止的，而本例设计的图表为一个动态的3D旋
转图表。它通过在VBE窗口中，使用代码设置X、Y和Z轴的旋转角度，从而实现
图表的旋转效果。
1．练习要点
VBA代码创建图表
使用控件
使用VBA代码旋转图表
2．操作步骤：
（1）新建一个空白工作簿，重命名Sheet1工作表为“3D效果”。然后，在该工作表中，创
建如图17-23所示的表格。
创建
表格
图17-23 创建表格
（2）在工作表中，绘制一个“按钮（窗体按钮）】”按钮。然后，弹出的【指定宏】对话框
中，输入【宏名】为“创建图表”文字，如图17-24所示。
绘制
图17-24 绘制控件按钮
提示
（3）单击【指定宏】对话框中的【新建】按钮后，将在弹出的VBE窗口中，自动插入一个
模块1。然后，在该【代码】编辑窗口中，输入如图17-25所示的代码。
单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择【按钮（窗
体按钮）】选项，即可在工作表中绘制该控件按钮。
输入
图17-25 输入创建图表代码
其中，输入的代码如下：
Sub 创建图表()
Range("A2:C10").Select
rceData Source:=Range("3D效果!$A$2:$C$10")
ype = xl3DColumn
With ActiveChart
.HasTitle = True
. = "接受群体图"
(xlCategory).Select
belPosition = xlLow
End With
(xlValue).Select
FormatLocal = "#,##0;-#,##0"
FormatLocal = "0%;0%;0%"
End Sub
（4）返回工作表窗口，并右击所绘制的“按钮1”控件按钮，执行【编辑文字】命令。
然后，修改控件名称为“创建图表”文字，如图17-26所示。
重命名
执行
图17-26 重命名控件名称
（5）绘制“按钮2”控件按钮，在弹出的【指定宏】对话框中，输入【宏名】为“旋转图
表”文字，并单击【新建】按钮，如图17-27所示。
绘制
设置
图17-27 绘制“按钮2”控件按钮
（6）在弹出的【代码】编辑窗口中，输入旋转图表的代码，如图17-28所示。
输入
图17-28 输入旋转图表代码
其中，输入的代码如下：
Sub 旋转图表()
Dim GraphObj As Chart
Dim RoSpeed As Double
Dim i As Double, j As Double, k As Double, l As Double
Set GraphObj = Worksheets("3D效果").ChartObjects(1).Chart
RoSpeed = 1
For i = 0 To 35 Step RoSpeed
on = i + 10
DoEvents
Next i
For j = 0 To 45 Step RoSpeed
ion = j + 10
DoEvents
Next j
For k = 35 To 0 Step RoSpeed * -1
on = k + 10
DoEvents
Next k
For l = 45 To 0 Step RoSpeed * -1
ion = l + 10
DoEvents
Next l
End Sub
（7）重命名“按钮2”控件按钮为“旋转图表”文字。然后，绘制“按钮3”控件按钮，并
在【指定宏】对话框中，输入【宏名】为“停止旋转”文字，并单击【新建】按钮，如图
17-29所示。
设置
图17-29 绘制控件按钮
（8）在弹出的【代码】编辑窗口中，输入如图17-30所示的代码。
输入
图17-30 输入代码
其中，输入的代码如下：
Sub 停止旋转()
Stop
End Sub
（9）返回工作表窗口，重命名“按钮3”控件按钮为“停止旋转”文字，如图17-31所示。
重命名
图17-31 重命名
（10）单击【创建图表】控件按钮，即可自动生成一个图表，如图17-32所示。
生成图表
图17-32 自动生成图表
（11）单击【旋转图表】控件按钮，即可旋转图表。单击【停止旋转】控件按钮，即可返回
VBE窗口并停止图表旋转。
版权声明：本文标题：Excel VBA编程 典型实例——设计3D动态图表 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1710780047a572755.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论