VBA代码为ppt添加页码进度条

fandroid

于 2015-05-25 15:31:28 发布

4617
已收藏 5
分类专栏： office 文章标签： vba ppt
版权

office
专栏收录该内容
4 篇文章1 订阅
已订阅
用 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 With
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13

————————————————
版权声明：本文为CSDN博主「fandroid」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/fandroid/article/details/45970243

Office2010-2013 ppt 添加进度条代替页码 - 百度文库

VBA代码为ppt添加页码进度条相关推荐

为ppt添加页码进度条
用 VBA 实现在 PPT 最下边加进度条,方便查看进行到总长度的多少,根据选择的页面不同,进度条的长度也不同. 提示:进度条只是体现已播放的幻灯片张数,不是用于计时. 进度条的制作添加方法如下: 打 ...
create-react-app(不执行jest) 添加打包进度条自动添加打包版本号
记录一下本文使用 react-app-rewired+env-cmd+progress-bar-webpack-plugin实现打包或运行时会显示进度条无痛点全在如下代码片段注释比较清晰源 ...
Android 11.0 QuickQSPanel添加亮度进度条布局
1.概述在11.0产品进行定制化开发时,在定制化framework上层的SystemUI 虽然和10.0有些差别但是思路是一样的,差别不大而在QuickQSPanel中添加系统亮度条布局思路也是一 ...
代码添加ProgressBar 进度条
大家好今天为大家分享代码中添加ProgressBar的例子 .当我们需要初始化程序或者联网获取数据在数据库中查找数据时,这些需要耗费些时间的操作就需要进度条来提示用户有任务在进行,以免造成程序界面 ...
java swing进度条_Java Swing创建自定义闪屏:在闪屏上添加Swing进度条控件(转)
本文将讲解如何做一个类似MyEclipse启动画面的闪屏,为Java Swing应用程序增添魅力. 首先看一下效果图吧, 原理很简单,就是创建一个Dialog,Dialog有一个进度条和一个Label ...
Java Swing创建自定义闪屏:在闪屏上添加Swing进度条控件(转)
本文将讲解如何做一个类似MyEclipse启动画面的闪屏,为Java Swing应用程序增添魅力. 首先看一下效果图吧, 原理很简单,就是创建一个Dialog,Dialog有一个进度条和一个Label ...
html5模仿手机音乐播放器(添加音乐进度条和时长)
今天用html+js+cs写了一个类似手机音乐播放器的小东东,代码规范性不是很好,高手切勿喷,新手可以看看,其中歌词同步js代码参考了一个老师的代码.自己添加的是点击按钮页面滑动,和上一曲下一曲播放, ...
python文本进度条代码解释_python动态文本进度条的实例代码
如何实现动态单行刷新,答案是:覆盖但是怎么实现覆盖呢? 关键在于不换行而且能回退到开始位置那么就要用到 \r 这个东西就是让光标回退到当前行初始位置记得不能让换行代码片段:#文本进度条.py ...
MFC对话框程序添加弹窗进度条提示
1.建立主对话框和弹窗对话框 2.在主对话框添加按钮,进行主线程工作和弹窗显示. 3.主线程头文件申明线程,主线程工作函数和与弹窗交付的变量 static UINT ThreadProcess(LPV ...

VBA代码为ppt添加页码进度条

VBA代码为ppt添加页码进度条相关推荐

最新文章

热门文章