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

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

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

来源

2013-10-25 user2921326

你不” t需要绘制形状...代码为你做。但Threading.thread.sleep不是VBA。这可能是为什么它不适合你。你会希望更清楚什么是不工作的;引用您看到的任何错误消息，并指出它们出现在哪条线上。为了做到这一点，您需要注释掉“错误恢复下一行”行。 –