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

发布时间：2025-03-22 06:08:07来源：

想要让你的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会显得更加生动有趣！快去试试吧，让你的演示脱颖而出吧！💫

标签：

免责声明：本答案或内容为用户上传，不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。如遇侵权请及时联系本站删除。