1

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

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
4

2 回答 2

0

尝试这个。资源

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

资料来源：PPTFAQ（网站）

于 2013-11-03T00:42:25.983 回答
0

网上有几行代码或简单的步骤（虽然，恕我直言很难找到），它们仅涵盖基础知识。

我扩展了 Edgar Loper 的进度点。请在以下链接中查看我/a 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 ）

奥拉夫

于 2017-10-28T08:37:28.370 回答