| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

повернуть ячейку со словом на 45'. [D5, WinXP]

serjufa ©   (2005-07-20 13:05:00) 

Как программно из D5 повернуть текст в определенной ячейке на 45' на листе Excell.
 
Этот же вопрос можно обозначить иначе - есть макрос из Excell:

Sub Макрос1()
'
' Макрос1 Макрос
   Range("L17").Select
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = False
       .Orientation = 45
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
       .MergeCells = False
   End With
End Sub

№ ячейки в {Range("L17").Select} 22 раза меняется в цикле. Мне нужно в ходе программы повернуть ячейку со словом ИТОГО на 45'.

Заранее благодарен

leyftd@mail.ru

---

GanibalLector   (2005-07-20 21:35:00) [1]

как-то подобный вопрос уже был ;) Кстати,мог бы и поиском его взять. Ну...да ладно :

var XLAPP:OleVariant;
i:integer;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;

XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';

XLApp.WorkBooks[1].Sheets[1].Cells[2,2]:='GanibalLector';
XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Select;

for i:=1 to 20 do
begin
 if odd(i) then
 XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Orientation:=random(90)
 else
 XLApp.Workbooks[1].WorkSheets[1].Range['B2'].Orientation:=0-random(90);
 sleep(200);
end;
end;



---

Digitman   (2005-07-20 17:19:00) [2]

> serjufa   (20.07.05 13:05)  


твой вопрос сводится к принципам/особенностям портирования VBA-кода в Делфи-код - не более того

---

YurikGL   (2005-07-20 15:17:00) [3]

что-то типа

app.activesheet.Range("L17").Select;
app.selection.Orientation:= 45;

---

Drakosha   (2005-07-20 14:50:00) [4]

а макросы нынче не в моде?
запустил запись
повернул слово в ячейке(саму то ячейку 100 пудов не повернёшь)
остановл запись
глянул что получилося
сделал тоже в делфе

---

Наверх