设置excel单元格文字居中报错

qq127hb

设置excel单元格文字居中报错，代码如下

lcells.PropertyPut ('HorizontalAlignment', ['xlCenter']);

另外，单元格合并后，单元格的行高不能随着文字自动扩充，代码如下：

//按文字内容自动换行
     lcells := DispatchHelper.Create(FApp.PropertyGet('cells', []));
     lcells.InvokeMethod('Select', []);
     lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));
     lSelection.PropertyPut('WrapText', [True]);

jiahaiming

1、报什么错误？

2、建议楼主先参考一下微软帮助，找到vba设置的方法，再用平台调用。

qq127hb

1 报错 是因为 lcells.PropertyPut ('HorizontalAlignment', ['xlCenter']);  这里的属性名称不对（HorizontalAlignment）

但我在excel录制的宏是这样的
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

lixy

xlCenter一般是代称，你要去查他的真正的值。