Как развернуть текст в ячейке xls

[s2176]

Добрый день!
Подскажите, пожалуйста, как можно развернуть текст в ячейке Excel на 90 градусов.
Сразу скажу, что шаблон создать заранее нельзя.

[Den]

Макросом

Sub qqq()
Range("A1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlLTR
.MergeCells = False
End With
End Sub

..если нужно, реализуйте просто в нем цикл по n- нужным ячейкам

[Masygreen]

а макрос так

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

  xlFreeMatrix;
  XlRes := True;
    _FileMacros :='lalaalaa.bas'
    _FileMacros := GetStringParameter('Files','OutputFilesDirectory',0)+_FileMacros;
    _FileMacros := ConvertServerPathToCli (_FileMacros);
    _fh := CreateFileHandle(_FileMacros);
    File_OpenFile(_FileMacros, stCreate, _fh);

Do
{
  if (not XlRes)  Break;

   File_WriteLn( 'Sub Format ()', _fh);
   File_WriteLn( 'End Sub', _fh);

   File_Close(_fh);
   PutFileToClient(_FileMacros, false);

   xlImportModule(_FileMacros);
   xlRunMacro('Format');
   DeleteFile(_FileMacros);
}
while False;
xlKillExcel;