EXCEL VBA垂直文本

Question

我只是想知道，在使用MergeCells脚本时，是否可以将文本设置为垂直文本。

MergeCells的作品类似于官方的城镇嘉年华和博尼法奇奥节。然而，期望的输出必须类似于所有圣徒和所有灵魂日的列。

​

​

Sub MergeCells()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "123"
    
    With Selection
        .Merge
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .ShrinkToFit = True
        .Orientation = 90
     End With
 
    ActiveSheet.Protect "123", AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True
    Application.ScreenUpdating = True
End Sub

Answer 1

变化

.Orientation = 90

至

.Orientation = xlVertical

有关更多细节，请参见XlOrientation枚举文档。