Intenta así
- Code: Select all Expand view
oSheet:Range( "A1:D1" ):HorizontalAlignment := 7
//Utiliza éstos valores
xlHAlignCenter -4108
xlHAlignDistributed -4117
xlHAlignJustify -4130
xlHAlignLeft -4131
xlHAlignRight -4152
xlHAlignCenterAcrossSelection 7
xlHAlignFill 5
xlHAlignGeneral 1