In diesem Beispiel wird die Höhe der zweiten Zeile in Sheet1 auf das Doppelte der Standardhöhe gesetzt und danach die vertikale Ausrichtung zentriert.
Worksheets("Sheet1").Rows(2).RowHeight = _ 2 * Worksheets("Sheet1").StandardHeight Worksheets("Sheet1").Rows(2).VerticalAlignment = xlVAlignCenter