Есть макрос

[BlazeBio]

Есть макрос. Но почему-то в *.xls не меняется ориентация(Excel 2007)?

Код: Выделить всё

  DELETEFILE(sPath);
  if (MacroFile.OpenFile(sPath, stCreate))
  {
    MacroFile.Writeln('Sub MAC1');
    MacroFile.Writeln('Dim i As Integer');
    MacroFile.Writeln('Range("A19").offset([0], [' + string(NumCol - 1) + ']).Select'); 
    MacroFile.Writeln('With Selection');
    MacroFile.Writeln('.Orientation = 90');
    MacroFile.Writeln('End With');
    MacroFile.Writeln('Range("A19").select');//.offset([0], [' + string(numPostColumn - 1) + ']).Select'); 
    MacroFile.Writeln('With Selection');
    MacroFile.Writeln('.Orientation = 90');
    MacroFile.Writeln('End With');
    MacroFile.Writeln('End Sub');
    MacroFile.Close;
  }

[m0p3e]

А как отчет формируется?
Если через xl-функции то для смены ориентации есть xlPageSetupSetOrientation.

[BlazeBio]

Вообще всё через функции xl* делается, кроме ориентации текста в ячейке.
А xlPageSetupSetOrientation меняет ориентацию не всего ли листа? Мне надо, чтоб только в определённых ячейках с горизонтального в вертикальное.

[m0p3e]

Это уже из другой истории.