VBA共享代码：设置单元格对齐

本文关键字：单元格对齐（微信公众号回复本文关键字可随时查看）

我学的不是计算机专业，只是10多年前学习了一个在Excel中使用Visual Basic for Application（简称VBA）的速成教程，所以各位大佬看到我的代码幼稚可笑，欢迎指正，但不要拍砖拍的太狠，跪谢，

设置单元格对齐代码：
With Selection

'对齐-水平对齐（xlGeneral常规；xlLeft靠左(缩进)；xlCenter居中；xlRight靠右(缩进)；xlFill填充；xlJustify两端对齐；xlCenterAcrossSelection跨列居中；xlDistributed分散对齐）
   .HorizontalAlignment = xlGeneral

'对齐-垂直对齐（xlTop靠上；xlCenter居中；xlBottom靠下；xlJustify两端对齐；xlDistributed分散对齐）
   .VerticalAlignment = xlCenter

'对齐-文本控制-自动换行
   .WrapText = False

'对齐-文字方向（±90度之间；xlDownward=-90度；xlHorizontal=0度；xlUpward=90度；xlVertical竖排）
   .Orientation = 0

'对齐-是否自动缩进
   .AddIndent = False

'对齐-缩进量（0-15之间，自动缩进关闭时有效）
   .IndentLevel = 0

'对齐-文本控制-缩小字体填充
   .ShrinkToFit = False

'对齐-从右到左-文字方向（xlContext根据内容；xlRTL（总是从右到左）、xlLTR（总是从左到右））
   .ReadingOrder = xlContext

'对齐-文本控制-合并单元格
   .MergeCells = False

End With