повернуть ячейку со словом на 45 .

← →
serjufa (2005-07-20 13:05) [0]

Как программно из 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

← →
Drakosha © (2005-07-20 14:50) [1]

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

← →
YurikGL © (2005-07-20 15:17) [2]

что-то типа

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

← →
Digitman © (2005-07-20 17:19) [3]

> serjufa (20.07.05 13:05)

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

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

повернуть ячейку со словом на 45 . Найти похожие ветки