Question

我想在powerpoint中创建一个vba宏，仅显示当前幻灯片下的进度条。进度条必须一步一步（例如：1000毫秒）。这是可能的？我已经从this question修改了此代码，但它无法正常工作，因为我无法在当前幻灯片上绘制形状。

On Error Resume Next
    With ActiveWindow.SlideShowWindow.View.Slide
          For x = 1 To length
          Set s = .Shapes.AddShape(msoShapeRectangle, _
          0, ActivePresentation.PageSetup.SlideHeight - 12, _
          x * ActivePresentation.PageSetup.SlideWidth / length, 12)
          s.Fill.ForeColor.RGB = RGB(127, 0, 0)
          s.Name = "ProgBar"
          Threading.thread.sleep (1000)
          Next x:
    End With

Answer 1

试试这个。 Source

阅读本文，并尝试了解该段代码。

资料来源：PPTFAQ（网站）

Answer 2

网上有几行代码或简单的步骤（虽然很难找到），但它们只涵盖了基础知识。

我将Edgar Loper的进度点扩展了很多。请查看免费 - 以及开源（您可以查看那里的代码） - 我的/ PowerPoint进度指示器的版本以下链接。

ZIP包含一个PPT添加，其中向PowerPoint添加新功能区，适用于Windows和MAC，Office 2010及更高版本，32位和64位！

它可以让您创建一个带有额外信息的好进度条（如果您构建演示文稿）。

链接到最新版本：

短网址：http://url.olaf-noehring.de/progressindicator

完整网址：http://www.datenbank-projekt.de/index.php/beispiele/progress-indicator-powerpoint-2010-2013-2016-32-and-64-bit-windows-and-mac-os

（和Adam Wilsons Github页面：https://github.com/AdamWilsonLab/progress_indicators）

奥拉夫

单张幻灯片上的PowerPoint进度条VBA

2 个答案: