分享一个类似手机电池显示方式的进度条

lk710618 · 发表于 2015-2-11 12:11

借鉴前辈高人的VBA，制作了一个可以显示类似手机电池余量的进度条，供大家分享
PPT页数改变，在首页放映状态鼠标滑过右上角电池图标，即可自动调整进度显示状态。

补充内容 (2017-6-22 12:26):
最新的更新在6楼

wudixin96 · 发表于 2015-2-11 12:40

首页似乎没有达到你说的效果啊

lk710618 · 发表于 2015-2-11 12:56

本帖最后由 lk710618 于 2015-2-11 12:57 编辑

wudixin96 发表于 2015-2-11 12:40
首页似乎没有达到你说的效果啊

增加PPT页数，当然是在后面增加，增加页数后，在首页放映时，鼠标滑过右上角电池图标，后面所有页数的电池余量就会跟着变化了

puppysun · 发表于 2015-7-9 08:33

我新增的，有绿色底纹呢，你本来做的都是白色底纹的

zclvcl · 发表于 2017-6-19 16:49

学习一下。

lk710618 · 发表于 2017-6-22 12:25

最新更新，电池上可以显示当前页数和总页数，只要点击放映模式，就可以自动更新进度条和显示的页数

fv8899 · 发表于 2017-6-23 19:21

大神有详细的制作方法吗

lk710618 · 发表于 2017-6-26 11:49

fv8899 发表于 2017-6-23 19:21
大神有详细的制作方法吗

VBA中都写着呢

leikaiyi123 · 发表于 2017-9-7 15:00

效果不错，建议做到母板视图中，以防误改，或做成ppa方便调用，以免必须以此为模板修改或复制代码和电池图形过来。

leikaiyi123 · 发表于 2017-9-21 11:03

本帖最后由 leikaiyi123 于 2017-9-21 11:08 编辑

我改为了母版样式，但不知为什么，播放时不会动态显示“电池剩余量”和剩余幻灯片张数，但按alt+F11切换一次vbe后重新播放就可以了，真的很奇怪，请高手找下原因，不明白这个Sub OnSlideShowPageChange()的触发机理。见附件。
Sub OnSlideShowPageChange()
'Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
Dim scl
scl = ActivePresentation.SlideShowWindow.View.CurrentShowPosition / Application.ActivePresentation.Slides.Count
ActivePresentation.SlideMaster.Shapes("msk").Width = 45 * scl
'ActivePresentation.SlideMaster.Shapes("msk").TextFrame.TextRange.Text = ActiveWindow.View.Slide.SlideIndex
ActivePresentation.SlideMaster.Shapes("page").TextFrame.TextRange.Font.Size = 12
ActivePresentation.SlideMaster.Shapes("page").TextFrame.TextRange.Text = ActivePresentation.SlideShowWindow.View.CurrentShowPosition & "/" & Application.ActivePresentation.Slides.Count
End Sub

		自动登录	找回密码
密码			免费注册

[分享] 分享一个类似手机电池显示方式的进度条