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。這可能是爲什麼它不適合你。你會希望更清楚什麼是不工作的;引用您看到的任何錯誤消息，並指出它們出現在哪條線上。爲了做到這一點，您需要註釋掉「錯誤恢復下一行」行。 –