Excel 365中Shape TextDirection=Vertical选项不可用问题咨询

可能原因 #

• 区域设置限制：你当前使用英文美国区域设置，垂直文本功能在纯英文区域环境下默认隐藏。同事能看到该选项，大概率是他们的系统区域或Office语言包包含东亚语言（如中文、日文），这类语言环境会自动解锁垂直排版功能。
• 功能推送批次差异：Office 365的功能采用分阶段推送机制，同版本用户可能处于不同的功能更新批次，部分同事先收到了垂直文本选项的推送。
• 形状类型不支持：并非所有形状都支持垂直文本。比如部分流程图形状、SmartArt组件本身不开放该设置，确认你选中的是否是普通文本框、矩形这类基础形状。

解决办法 #

• 临时调整区域/语言：在Windows设置中添加东亚语言（如中文简体）并设为默认区域，重启Excel后即可看到垂直文本选项，使用完成后可切回原区域。
• 用VBA强制设置：按Alt+F11打开VBA编辑器，选中目标形状后执行以下代码快速设置垂直文本：

  ActiveSheet.Shapes("目标形状名称").TextFrame2.TextRange.ParagraphFormat.TextDirection = msoTextDirectionVertical
  

• 等待全量推送：如果是批次推送问题，无需额外操作，1-2周内该功能会逐步覆盖所有同版本用户。

内容的提问来源于stack exchange，提问作者P_Rana