Const xlGeneral = 1     ' Standard (Text links/Zahlen rechts) (nur horizontal)
Const xlLeft = -4131    ' Ausrichtung nach links (nur horizontal)
Const xlCenter = -4108  ' Text wird zentriert ausgerichtet (horizontal und 
' vertikal)
Const xlRight = -4152   ' Ausrichtung nach rechts (nur horizontal)
Const xlTop = -4160     ' Ausrichtung nach oben (nur vertikal)
Const xlBottom = -4107  ' Ausrichtung nach unten (nur vertikal)
 
Sub Excel()
  Dim xlApp As Object
 
  ' neue Excel-Session starten
  Set xlApp = CreateObject("Excel.Application")
 
  ' Excel sichtbar machen
  xlApp.Visible = True
 
  ' neue Arbeitsmappe erstellen
  xlApp.Workbooks.Add
 
  ' 1. Zelle mit Text füllen
  xlApp.ActiveSheet.Cells(1, 1) = "Ralf"
 
  ' Höhe von Zeile 1 ändern
  xlApp.ActiveSheet.Rows(1).RowHeight = 60
 
  ' Breite von Spalte A ändern
  xlApp.ActiveSheet.Columns(1).ColumnWidth = 20
 
  ' horizontale Ausrichtung (Text zentrieren)
  xlApp.ActiveSheet.Cells(1, 1).HorizontalAlignment = xlCenter  'xlGeneral, 
  ' xlLeft, xlCenter, xlRight
 
  ' vertiale Ausrichtung (Text zentrieren)
  xlApp.ActiveSheet.Cells(1, 1).VerticalAlignment = xlCenter    'xlTop, 
  ' xlBottom, xlCenter
 
  ' Speicher freigeben, Excel bleibt aber weiterhin geöffnet
  Set xlApp = Nothing
End Sub

Viel Spass,
R@lf