💻✨用VBA为PPT添加页码进度条，让演示更专业！💪

想要让你的PPT看起来更有条理？试试用VBA代码为每一页添加页码和进度条吧！这个小技巧不仅能提升观众的观感，还能让演讲者更加从容不迫。第一步，打开PowerPoint，按下`Alt + F11`进入VBA编辑器。接着，点击“插入”→“模块”，粘贴以下代码：

```vba

Sub AddPageNumber()

Dim sld As Slide

For Each sld In ActivePresentation.Slides

With sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 50).TextFrame.TextRange

.Text = "第 " & sld.SlideIndex & " 页 / 共 " & ActivePresentation.Slides.Count & " 页"

.Font.Size = 14

End With

Next sld

End Sub

```

运行后，每张幻灯片都会显示页码和总页数。💡再加上一些渐变色或动画效果，整个PPT会显得更加生动有趣！快去试试吧，让你的演示脱颖而出吧！💫