VBA代码为ppt添加页码进度条
来源:互联网 发布:linux copy命令 编辑:程序博客网 时间:2024/04/30 12:21
用 VBA 实现在 PPT 最下边加进度条,方便查看进行到总长度的多少,根据选择的页面不同,进度条的长度也不同。
提示:进度条只是体现已播放的幻灯片张数,不是用于计时。
进度条的制作添加方法如下:
打开 PPT,按 Alt+F11,打开VBE编辑器,插入——模块,并复制下面的代码,最后单击工具栏的“运行”按钮。
Sub AddProgressBar() On Error Resume Next With ActivePresentation For X = 2 To .Slides.Count - 1 '第一页和最后一页不加 .Slides(X).Shapes("PB").Delete Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 6, _ X * .PageSetup.SlideWidth / .Slides.Count, 5) '条高度 s.Fill.ForeColor.RGB = RGB(246, 202, 5) '设置颜色 s.Name = "PB" Next X: End WithEnd Sub
0 0
- VBA代码为ppt添加页码进度条
- VBA Tips:为VBA program添加数字签名
- Word2013为文档添加多种页码格式
- vba 为图片添加链接
- 代码添加ProgressBar 进度条
- 代码添加ProgressBar 进度条
- PPT显示页码
- VBA进度条
- VBA进度条
- [Excel VBA] 新建一个工作表并为其添加代码
- 使用vba为excel文字添加下划线
- 快速为Powerpoint每页幻灯片添加页码
- wordpress文章分页如何为标题添加页码
- VSTO在EXCEL添加VBA模块代码
- 用代码给VBA添加工程密码
- ppt中显示总页码
- 如何给PPT加上页码?
- ppt vba 程序设计
- 50个Android开发技巧(01 好好利用layout_weight属性)
- python super()
- http请求中传输base64出现加号变空格的解决办法
- (⊙WinForm⊙) 开发自定义的表格控件
- 直接拿来用!最火的Android开源项目(完结篇)
- VBA代码为ppt添加页码进度条
- TCP协议的KeepAlive机制与HeartBeat心跳包
- Linux下SVN常用命令
- android图像处理
- Andriod-手电筒应用小思路(二)
- HBase-0.98.0和Phoenix-4.0.0分布式安装指南
- Android屏幕适配全攻略(最权威的官方适配指导)
- 基础的几种排序算法的总结 及其 解释排序的超棒效果图
- 手速模拟题