formatting excel cell + vertical alignment

  • Thread starter Thread starter dave
  • Start date Start date
D

dave

Hello
I'm trying to write data in excel sheet and formatting cells
Below is the code snippet:

Set objXL = CreateObject("Excel.Sheet")
objXL.Application.Visible = True

objXL.Application.Columns("A:G").EntireColumn.AutoFit
objXL.Application.Columns("A:G").EntireColumn.Font.Name = "Verdana"
objXL.Application.Columns("A:G").EntireColumn.Font.Size = "8"

objXL.Application.Columns("A:G").VerticalAlignment = xlTop 'gives
errors

objXL.Application.Range("A6:G6").Font.Bold = True
objXL.Application.Range("A6:G6").Font.Italic = True
objXL.Application.Range("A6:G6").Font.Name = "Times New Roman"
objXL.Application.Range("A6:G6").Font.Size = 11
objXL.Application.Range("A6:G6").Font.Color = RGB(0, 0, 128)


But I'm able to set verticalalignment property of the cell..Rest of the code
works fine...
Any ideas
Thanx
 
dave,
best practice - it to start macro recording in excel, make formatting you
need, stop recording and then check what code excel produced.
Also check, if you have a late binding - make sure you define all constants
like xlTop in access module
 
Thanx for the reply..It's good practise to use macro and I did.
It produce code something like this

Columns("A:A").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

but still couldn't figure out how to define constant xlTop and what value I
need to set?
Thanx again...
 
in excel open debgu window ctrl+G
type there ?xlTop

it will print constant value, for example 1

now to to access, in a module add:

Public const xlTop = 1

same for all constants you using
 
Back
Top