Excel 文本框旋转教程：让文字按需要倾斜或竖排

在 Excel 中，文本框可以倾斜、转向不同角度，也可以把文字设置为竖排。它们看起来都像是“把文字转了个方向”，实际操作的对象却可能不同：有时旋转的是整个文本框，有时改变的是文本在框内的排列方向。弄清这一区别，才能避免文字倒置、框体错位或打印效果与预期不符。

本文介绍 Excel 桌面版中的常用操作，说明文本框旋转与文字方向的区别，并给出可运行的 VBA 示例。不同 Excel 版本的功能区名称可能略有差别；如果需要批量处理或重复生成版式，可以使用代码示例。

一、先分清“旋转文本框”和“竖排文字”

旋转文本框，是将文本框作为一个整体转动。框的边框、文字和文本框内的布局会一起旋转。例如，将一条斜向标注旋转 30 度，文字和框都会呈现倾斜效果。

改变文字方向，则是调整文字在文本框里的排布方式。常见用途是让汉字逐字向下排列，而不是把整个文本框斜着转动。不同 Office 版本和语言环境中的方向选项名称可能不同，某些竖排样式也会受到字体和文字类型影响。

此外，Excel 单元格也有文字方向设置，但那是单元格格式，不是文本框设置。若操作对象是插入的文本框，应先单击文本框边框，确认选中了形状，而不是只将光标放进文字中。

二、用鼠标旋转文本框

1. 选择“插入”选项卡，在“文本”相关区域插入文本框。部分版本也可以通过“插入形状”选择文本框。
2. 输入文字，并先调整文本框的大小和位置。
3. 单击文本框的边框，确保选中的是整个形状。选中后通常会出现旋转手柄。
4. 拖动文本框上方的旋转手柄，观察文字和边框的方向；接近目标角度时放开鼠标。

旋转手柄适合目测调整，但不适合要求精确角度的排版。文本框也可以在形状格式相关选项卡中设置旋转角度。选中形状后，查找“旋转”或“大小和属性”等相关选项；不同版本的功能区布局可能不同。需要准确设置时，可直接输入角度，或使用下面的 VBA 示例。

旋转后如果文本框超出工作表可视区域，可以拖回合适位置。调整宽度或高度时，注意确认选中的是形状边框，而不是正在编辑文字。若文字被裁切，可先加大文本框，再检查自动换行、内边距和字体大小等设置。

三、设置竖排文字

要让汉字逐字向下排列，先选中文本框，再打开与形状文字有关的格式设置，查找“文字方向”“文本方向”或相近选项，选择适合的竖排方式。选项名称和可用样式会因 Excel 版本、平台及文本框类型而异。

竖排效果与整框旋转不等价。把整个文本框旋转 90 度，文字会随框一起侧转；竖排模式则尝试按竖向布局文字。英文、数字、标点以及混排内容在竖排时可能出现方向或换行差异。若需要精确控制混排效果，应先用实际字体和内容测试，而不要仅凭预览一个汉字判断。

如果目标只是让表头中的文字竖起来，且文字属于单元格而非文本框，应选中单元格，在“开始”选项卡的对齐方式相关功能中调整文字方向。不要在单元格方向菜单中寻找文本框的旋转设置，反之亦然。

四、用 VBA 创建并旋转文本框

以下宏会在当前工作表中创建一个文本框，写入示例文字，并将整个文本框旋转 30 度。代码使用 Excel VBA 的 Shapes.AddTextbox 创建形状，再通过形状的 Rotation 属性设置角度。

Sub AddRotatedTextBox()
    Dim ws As Worksheet
    Dim box As Shape

    Set ws = ActiveSheet

    '位置和尺寸的单位为磅（point）。
    Set box = ws.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=100, _
        Top:=50, _
        Width:=180, _
        Height:=40)

    box.Name = "RotatedLabel"
    box.TextFrame2.TextRange.Text = "斜向标注"
    box.Rotation = 30
End Sub

运行方法：在 Excel 中按 Alt+F11 打开 VBA 编辑器，选择“插入”→“模块”，粘贴代码；返回工作簿，运行 AddRotatedTextBox。宏会在当前活动工作表上创建新文本框。再次运行会再创建一个文本框，不会自动替换上一次创建的对象。

代码中的 Left、Top、Width 和 Height 使用磅作为单位，不是像素，也不是单元格行高或列宽单位。若文本框位置需要随单元格变化，可以再根据目标单元格的 Left、Top、Width 和 Height 属性设置形状的位置与大小。

旋转已有文本框

如果文本框已经存在，可以按形状名称取得对象，再设置旋转角度。以下示例适用于工作表中名称为 RotatedLabel 的形状：

Sub RotateExistingTextBox()
    Dim box As Shape

    Set box = ActiveSheet.Shapes("RotatedLabel")
    box.Rotation = 330
End Sub

Excel 的形状旋转角度以度数表示。示例中的 330 表示顺时针方向的 330 度，在视觉上相当于向另一侧倾斜 30 度；使用 30 和 330 可以表达相同方向的不同转法。具体角度应结合文本框边框和工作表中的视觉效果确认。若工作表中不存在指定名称的形状，代码会报错，因此批量处理时应检查对象是否存在。

可以先在 Excel 中选中文本框，再查看名称框中的形状名称，或在“选择窗格”中管理形状名称。不要把单元格地址误当作形状名称传给 Shapes 集合。

用 VBA 设置文字方向

如果要设置的是文字排列方向，而不是把整个文本框旋转，可以使用文本框的 TextFrame2.Orientation 属性。下面创建一个竖排方向的文本框：

Sub AddVerticalTextBox()
    Dim ws As Worksheet
    Dim box As Shape

    Set ws = ActiveSheet

    Set box = ws.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationVertical, _
        Left:=100, _
        Top:=50, _
        Width:=50, _
        Height:=160)

    box.Name = "VerticalLabel"
    box.TextFrame2.TextRange.Text = "中文竖排"
End Sub

msoTextOrientationVertical 是 Office 对象模型中的文字方向常量。不同方向常量对应的排版方式并不完全相同，尤其是包含英文、数字或标点时，实际显示可能和“每个字符都旋转”不是一回事。如果需要不同的竖排样式，可以在 VBA 编辑器中查看 Office 对象模型的 MsoTextOrientation 常量，并在目标 Excel 版本中实测。

这个示例使用 TextFrame2，它属于较新的 Office 文本框接口。对于旧版 Office、特殊形状或兼容性要求较高的文件，文本框属性可能需要调整；应在实际使用的 Excel 版本中测试保存和重新打开后的效果。

五、角度、尺寸和对象模型的边界

• 旋转是形状属性。Shape.Rotation 控制整个形状的旋转，不会替代文字方向设置。若只想竖排字符，不应简单地把文本框设置为 90 度。
• 角度以度为单位。 例如 30 表示 30 度。宏中使用示例角度时，应通过目标 Excel 版本验证最终效果，不要把鼠标拖动的大致位置当作精确角度。
• 坐标和尺寸以磅为单位。 不要把 Left:=100 误解为 100 像素；屏幕显示还会受到缩放比例影响。
• 角度不会保证文字不被裁切。 旋转后形状的视觉边界会改变。较长的内容、较大的字体或较窄的文本框，都可能导致换行或遮挡，应留出足够的宽高并检查打印预览。
• 方向常量与旋转角度不同。msoTextOrientationVertical 表示文字方向模式；Rotation 表示形状角度。两者可以分别设置，组合后的结果取决于文本框与文字的布局方式。
• 不同平台可能存在显示差异。 Windows、Mac、网页版 Excel 以及不同 Office 版本的界面和对象模型支持可能不同。VBA 宏主要用于桌面版 Excel，不能假设网页版 Excel 能直接运行。

六、常见错误与排查

1. 文字转了，文本框边框没按预期变化

常见原因是选中了文本框内部文字，随后使用了文字方向或字体相关设置，而不是旋转整个形状。先按 Esc 退出文字编辑状态，再单击边框，确认出现形状控制点后设置旋转。

2. 想做竖排，却把整框转成了横倒

这是将旋转与排版方向混为一谈造成的。应恢复形状角度，再单独尝试文本方向中的竖排选项。混排内容需逐项核对，因为竖排不一定会把所有字母和数字都按同一种规则显示。

3. 角度输入后，视觉方向似乎相反

留意角度的顺时针方向，以及互为补角的表示方式。例如 30 度和 330 度可对应不同方向的倾斜表达。建议选中形状后观察边框方向，并以工作表中的最终显示为准。

4. VBA 提示找不到形状

检查形状名称是否拼写正确、是否位于当前活动工作表，以及它是否确实是一个形状对象。工作表切换后，ActiveSheet.Shapes("RotatedLabel") 会在新的活动工作表中查找；需要稳定定位时，应明确指定工作表，例如使用 ThisWorkbook.Worksheets("表1")。

5. 宏重复运行后出现多个文本框

创建型示例每运行一次都会新建对象。若要求重复运行时只保留一个文本框，应先检查同名形状是否存在，再决定删除并重建，或直接取得现有形状并更新内容和旋转角度。删除形状前应确认名称，避免误删其他对象。

6. 文件保存后文字被截断或位置变化

检查文本框尺寸、文字换行和打印区域，并分别查看工作表视图与打印预览。若文本框与单元格对齐，检查形状的大小和位置属性；不同设备的字体替代和显示缩放也可能使版面略有变化。

七、宏与文件安全

调整文本框角度本身不是安全控制机制，不能用于隐藏敏感信息、保护单元格内容或阻止他人查看工作簿。形状被旋转、移出可视区域或缩小，并不代表其中的文字已删除，也不应被视为信息安全措施。对敏感内容，应按组织的数据管理要求删除或限制访问，而不是依赖视觉隐藏。

VBA 宏可以执行代码，因此只应运行来自可信来源且经过检查的宏。不要为了运行旋转示例而全局启用所有宏；按组织的宏安全策略处理文件，并优先使用受信任的位置或经过签名的宏。此示例只创建和设置文本框，但这不能作为任意宏文件都安全的依据。

工作表保护也有边界：保护工作表时可限制用户对对象的编辑，但具体能否选中或调整形状，取决于保护选项和形状设置。若目标是防止误操作，应在保护工作表后实际测试；若目标是保密，工作表保护不应被当作加密或访问控制的替代品。

八、快速选择方法

• 要让整段文字斜放：选中文本框边框，旋转形状；需要精确角度时设置旋转数值或使用 Shape.Rotation。
• 要让汉字逐字向下排列：设置文本方向，必要时调整文本框宽高，并检查英文、数字和标点的效果。
• 要旋转单元格里的表头：调整单元格文字方向，不要把单元格文字与文本框混为一谈。
• 要批量生成固定样式：使用 VBA 创建或更新文本框，并在目标 Excel 版本中检查宏执行和打印效果。

简单排版可以用鼠标手柄快速完成；对齐和角度要求较高时，使用数值设置或 VBA 更合适。无论采用哪种方法，最终都应确认选中对象正确，并检查保存后的工作表与打印预览。