作者：绿色风
分类：
时间：2022-08-17
浏览：239
楼主
chrisfang |
今天在做PPT课件，想到将Excel中的函数动态演示方式迁移到PPT课件中，由于PPT中没有条件格式可以使用，所以所有的元素都要通过VBA来组织构建。
完成后的效果如下：
其中整个页面只添加了两个微调框控件，主要使用了文本框的位置参数设置和Table对象的行列属性引用。主要代码如下：（注意此代码为1200*800分辨率下所使用，不同的分辨率的显示效果可能不同）- Private Sub SpinButton1_Change()
- With SlideShowWindows(1).View.Slide
- .Shapes("result").TextFrame.TextRange.Text = .Shapes("mytable").Table.Rows(SpinButton1.Value + 1).Cells(SpinButton2.Value + 1).Shape.TextFrame.TextRange.Text
- .Shapes("myframe1").Left = 161.3 + (SpinButton2.Value - 1) * 66.1
- .Shapes("mytext2").TextFrame.TextRange.Text = SpinButton2.Value
- End With
- End Sub
附件：
 Vlookup.rar
密码：exceltip |
2楼
wnianzhong |
好!学习了,谢谢! |
3楼
donghan |
这个效果也不错呀 |
4楼
liuguansky |
 方版出品，必属精品。
方版那个不重复的，现在找不到了。想转过来。
 |
5楼
donghan |
好东西，收藏起来 |
6楼
surdawu |
VBA 工程密码共享下啊 |
7楼
赵子千 |
确实很炫，学习了 |
8楼
lengyu_qingtia |
怎么在PPT中使用呢 |
9楼
朱悦灵 |
[img][/img] |
10楼
rainlynn |
怎么用密码也打不开啊？？？ |
11楼
李海宾 |
学习
 |
12楼
numtata |
飘过 |
13楼
冰心8549 |
谢谢，下载了 |
14楼
dawin2046 |
代码短，还是看不懂
厉害啊 |
15楼
心泉咚咚 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一