VBA .HorizontalAlignment = xlCenter 什么意思

Question

VBA .HorizontalAlignment = xlCenter 什么意思

Answer 1

Horizontal水平，Alignment对齐，XlCenter居中，整体就是水平居中对齐的意思

VBA中HorizontalAlignment 属性：返回或设置指定对象的水平对齐方式。
水平对齐方式的值(默认值=xlGeneral)，当然，还有其它的对齐方式如下：
　　常量 　　　　　　　　　　　水平位置
　　xlGeneral 　　　　　　　　　　　标准
　　xlLeft 　　　　　　　　　　　　靠左
　　xlCenter 　　　　　　　　　　　中央
　　xlRight 　　　　　　　　　　　　靠右
　　xlFill 　　　　　　　　　　　　　填充
　　xlJustify 　　　　　　　　　　　调节对齐
　　xlCenterAcrossSelection 　　　选择范围内中央对齐
　　xlDistributed 　　　　　　　　　平均对齐

Answer 2

HorizontalAlignment 属性
返回或设置指定对象的水平对齐方式。XlHAlign 类型，可读写。
XlHAlign 可为以下 XlHAlign 常量之一。
xlHAlignCenter
xlHAlignCenterAcrossSelection
xlHAlignDistributed
xlHAlignFill
xlHAlignGeneral
xlHAlignJustify
xlHAlignLeft
xlHAlignRight

expression.HorizontalAlignment
expression 必需。该表达式返回“应用于”列表中的一个对象。
说明
某些常量可能不可用，这取决于所选择或安装的语言支持（例如，美国英语）。

示例
以下示例使图表标题居中。
myChart.ChartTitle.HorizontalAlignment = xlCenter本回答被提问者采纳

Answer 3

Sub at()
Range("d2:f13").Select '选择D2：F13区域
Selection.FormulaR1C1 = "=IF(RC=0,INT(RAND()*90+10),RC)" '为选择区域赋函数

Range("A1:h25").Select '选择A1:H25区域
With Selection '设置选择区域格式
.HorizontalAlignment = xlCenter '水平居中对齐
.VerticalAlignment = xlCenter '垂直居中对齐
.WrapText = False '自动换行为FALSE，即不能自动换行
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

不想再解释了，就是人家录制的一段宏，也不修改一下就在用，把没用的东西也一起贴在一起了
反正就是设置选择区域的格式啦。。。

不明白的话，可以粘贴到代码窗口，然后按F1查看帮助文件

Answer 4

设置某对象对齐格式为水平居中。