收藏 分享(赏)

office2010-2013 ppt 添加进度条代替页码.docx

上传人:无敌 文档编号:21251 上传时间:2018-03-04 格式:DOCX 页数:5 大小:165.05KB
下载 相关 举报
office2010-2013 ppt 添加进度条代替页码.docx_第1页
第1页 / 共5页
office2010-2013 ppt 添加进度条代替页码.docx_第2页
第2页 / 共5页
office2010-2013 ppt 添加进度条代替页码.docx_第3页
第3页 / 共5页
office2010-2013 ppt 添加进度条代替页码.docx_第4页
第4页 / 共5页
office2010-2013 ppt 添加进度条代替页码.docx_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
资源描述

1、ppt 如 何 加 页 码 相 关 详 细 知 识 ppt 中页 码, 有两 个作 用, 提醒受 众和 自己 整个 演示 进度, 另外 方便 打印 查看 避免丢 页。 第 一,ppt 加 页码的 基本 设置 总结 ppt 加页 码这 篇 文章, 源于 窝窝 论坛 一个 窝友的 提问, 发贴 咨询 ppt 如 何 加页 码。 PPT 里 面加页 码, 只 是换了 一个 说法 叫 幻 灯片 编号 。 下面是 ppt 如 何加 页 码的详 细操 作步 骤: 第 一步 :打 开需 要加 页码 的 PPT 文档 ,单 击插 入 幻灯 片编 号。 第 二步 ,在 打开 的 页 眉和页 脚 对 话框 ,勾

2、选 幻灯片 编号 ,并 单击 全 部应用 ,关 闭 对话框 ,在 每 个 PPT 右下 角就会 出现 页码 。 第 二,PPT 首 页( 第一页 )不 显示页 码 我 们再 次打 开上 面的 页眉和 页脚 对话 框 , 勾 选 左下角 的 标 题幻 灯片 中不 显示 , 并 单 击 应用 即可 。 第 三,PPT 加 页码 编号起 始值 设置 比 如 ,我 们第 一个 PPT 不需 要页码 , 第二 个 PPT 开始 显示第 一页 , 第三 个 PPT 显示 第 二页, 以此 类推 ,这 样的 设置又 该如 何设 置呢 ? 单击 设计 选 项卡 页面设 置, 打开 页面 设置 对话框 ,将 幻

3、灯 片编 号 起始值 设置 为 。 第 四,ppt 加 页码: 当前 页码/ 总 页码 或者 第 页 共 页 我 们看 到很 多 的 PPT 加页码 ,在 右下 角的 页脚 区,都 是这 样设 置的 ,比 如 1/22 : 表示 当前页 为第 一页 ,一 共 22 页。又 或者 是第 一页 共 22 页。 这 样的 自定 义效 果又 是如何 设置 的呢 ? 第 一步 ,我 们单 击 视图 幻灯 片母 版 ,进 入母版 视图 。 第 二步 , 右 边最 下面 一排分 别是 日 期区 、 页 脚区 、 数字区 , 我 们修 改页码 就是 在 下图右 下角 红框 标注 的 数 字区 进 行。 其 中

4、, 代表 当前 页码, 是不 能删 除的 ,我 们可以 在此 前面 和后 面添 加相关 需要 显 示的文 字, 比如 下图 显示 的: 提 示: 这个 表示 当前页 码, 是不 能手 工输 入的。 还有 总页 码 PPT 无 法获得 ,是 自 己手动 加上 去的 。 注:有人问 PPT 页码如何居中的问题,我 们只 需要在母版视图,将 “ 数字 区 ” 移动到底 部中间即可。 第 三 ,复 制整 个 数 字区 , 然后 单击 上面 选项 卡中 的 关闭 母版 视图 ,回到 普 通视 图, 在 每 个页 面粘 贴,PPT 会自 动 生成 第 1 页, 共 22 页 , 随着 页面 不同 , 会

5、自 动变 化, 因为 是 代表 当前 页码 ,这也 是为 什么 不能 手工 输入这 个符 号的 原因 。 第 五,VBA 代 码为 ppt 添加 页码 进度条 我 们还 可以 为 PPT 加 个控制 页码 的进 度条 ,展 示一下 ,效 果 如 下图 左下 角所示 。通 过 比较, 这种 进度 条展 示页 码,比 右下 角的 第 3 页, 共 22 页 活 跃好 看很 多。 如 果你 喜欢 ,也 可以 用进度 条取 代文 字式 的页 码。 用 VBA 实 现在 PPT 最下边 加进 度条 ,方 便查 看进行 到总 长度 的多 少, 根据选 择的 页 面不同 ,进 度条 的长 度也 不同。 提

6、示: 进度 条只 是体 现已播 放的 幻灯 片张 数, 不是用 于计 时。 进 度条 的制 作添 加方 法如下 : 打开 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 - 3, _ X * .PageSetup.SlideWidth / .Slides.Count, 3) 条高 度 s.Fill.ForeColor.RGB = RGB(246, 202, 5) 设置颜 色 s.Name = “PB“ Next X: End With End Sub

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 企业管理 > 管理学资料

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报