Excel

[Santa123]

Hi,

I do not know how to align text in cells. I've been trying .... and nothing.

With Excel.Range("A1", "D5")
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 12
.Font.ColorIndex = 3
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With

Respect
Santa123

 

[ferdo]

Hi

Did you tried to record a macro ?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[Santa123]

Hi ferdo,

This is code from recording macro in Excel

Best Regards
Santa123

 

[ferdo]

For me is looking like this (Excel 2007, Win 7 x64)

Sub Macro1()

    Range("A1:D5").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[ntweisen]

Mine looks like this (Excel 2007 SP2):

Range("F1,H1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

http://excelspreadsheetshelp.blogspot.com

-

http://scripting4v5.com

 

[Santa123]

But when I put

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom

in Catia script, it makes error.

 

[ntweisen]

Define the numeric value by adding these before the other code:

Const xlCenter = -4108
Const xlBottom = -4107

http://excelspreadsheetshelp.blogspot.com

-

http://scripting4v5.com

 

[Santa123]

It works, thanks a lot. Why do you need to define numeric value for .HorizontalAlignment and
.VerticalAlignment. These values -4108 and -4107, why not -11 and -10

Best Regards
Santa123