问题 I'm playing with a progress bar (with basically zero experience with VBA whatsoever). I found the following snippet online: Sub ProgressBar() On Error Resume Next With ActivePresentation .SectionProperties.SlidesCount( For N = 2 To .Slides.Count .Slides(N).Shapes("Progress_Bar").Delete Set s = .Slides(N).Shapes.AddShape(msoShapeRectangle, 0, .PageSetup.SlideHeight - 10, N * .PageSetup.SlideWidth / .Slides.Count, 10) Call s.Fill.Solid s.Fill.ForeColor.RGB = RGB(128, 128, 128) s.Line.Visible =