PowerPoint中可批量设置文本框文字垂直居中：一、格式刷复制对齐；二、选择窗格全选后统一设置；三、VBA宏一键遍历所有文本框；四、母版预设默认对齐方式。
如果您在PowerPoint中需要让多个文本框内的文字统一垂直居中，但逐个设置效率低下，则可能是由于PPT默认未启用批量文字对齐功能。以下是实现一次性设置所有文本框垂直居中的多种操作方法：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、使用选择窗格+格式刷批量应用
该方法适用于已存在多个文本框且需统一文字对齐方式的场景，通过格式刷将已设置好的垂直居中属性快速复制到其他文本框。
1、选中一个已设置为垂直居中对齐的文本框（右键→设置形状格式→文本选项→垂直对齐方式→选择“中部”）。
2、在“开始”选项卡中点击“格式刷”按钮。
3、按住Ctrl键，依次单击其余需要设置的文本框（或拖动鼠标框选多个文本框）。
4、松开鼠标后，所有被选中文本框的文字将同步应用垂直居中对齐属性。
二、利用选择窗格全选文本框后统一设置
该方法可避免遗漏隐藏或重叠文本框，通过选择窗格集中定位并批量修改所有文本框的文本对齐方式。
1、在“开始”选项卡中点击“选择”→“选择窗格”，打开右侧窗格。
2、在选择窗格中，按住Ctrl键并逐个点击所有类型为“文本框”的图层名称（或按住Shift键连续选择）。
3、关闭选择窗格，此时所有被选中文本框处于多选状态。
4、右键任意一个被选中文本框→“设置形状格式”→左侧导航栏点击“文本选项”→展开“文本框”→在“垂直对齐方式”下拉菜单中选择“中部”。
5、所有被选中文本框将立即统一更新为垂直居中对齐。
三、使用VBA宏一键批量设置（适用于大量幻灯片）
该方法适用于含数十页PPT且每页均有多个文本框的场景，通过运行宏代码自动遍历当前演示文稿中全部文本框并设置垂直对齐方式。
1、按Alt+F11打开VBA编辑器，点击“插入”→“模块”。
2、在空白窗口中粘贴以下代码：
Sub SetAllTextBoxesVerticalCenter()
Dim sld As Slide
Dim shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
shp.TextFrame.VerticalAnchor = msoAnchorMiddle
End If
End If
Next shp
Next sld
End Sub
3、关闭编辑器，返回PPT，按Alt+F8，选择宏名“SetAllTextBoxesVerticalCenter”，点击“运行”。
4、运行完成后，所有幻灯片中所有含文字的文本框均自动完成垂直居中对齐。
四、通过母版视图预设文本框默认对齐方式
该方法适用于新建PPT或需长期保持统一排版规范的场景，从源头设定所有新插入文本框的默认垂直对齐属性。
1、切换到“视图”选项卡，点击“幻灯片母版”。
2、在左侧母版缩略图中，选中最顶层的“幻灯片母版”（即主母版）。
3、在母版页面中插入一个新文本框，右键→“设置形状格式”→“文本选项”→“垂直对齐方式”设为“中部”。
4、选中该文本框，在“开始”选项卡中点击“设置为默认文本框”。
5、退出母版视图后，此后在任意幻灯片中新插入的文本框将默认继承垂直居中对齐设置。
