forum.clarionlife.net

Добрый день!

Не закинет ли кто примерчик, как рисовать линии в Excel при помощи subj

С уважением Мартюшев Леонид
mailto:leonid@opfr.komi.com

(Добавление)

Border1 routine
MSExcel1.SetProperty('Selection.Borders(7).Weight', 2) !-4138)
MSExcel1.SetProperty('Selection.Borders(8).Weight', 2) !-4138)
MSExcel1.SetProperty('Selection.Borders(9).Weight', 2) !-4138)
MSExcel1.SetProperty('Selection.Borders(10).Weight', 2) !-4138)
MSExcel1.SetProperty('Selection.Borders(11).Weight', 2) !

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

  MSExcel1.SetProperty('Selection.Borders(12).Weight', 2)

Border2            routine
    MSExcel1.SetProperty('Selection.Borders(7).Weight', xlMedium) !-4138)
    MSExcel1.SetProperty('Selection.Borders(8).Weight', xlMedium) !-4138)
    MSExcel1.SetProperty('Selection.Borders(9).Weight', xlMedium) !-4138)
    MSExcel1.SetProperty('Selection.Borders(10).Weight', xlMedium) !-4138)
    MSExcel1.SetProperty('Selection.Borders(11).Weight', 2) !
    MSExcel1.SetProperty('Selection.Borders(12).Weight', 2)

Hlp <hlp@mail333.COM>

Спасибо, прояснилось. А не пояснишь, как цвет менять в нужной ячейке:
SetFontColor - что-то не идет, а через SetProperty что-то не понимаю как

С уважением Мартюшев Леонид

MSExcel1.SetProperty('Selection.Font.ColorIndex', 3) !red
MSExcel1.SetProperty('Selection.Interior.ColorIndex', 5) !background

Hlp

Еще раз спасибо.
А нет ли у тебя описания к subj более подробного, чем Help?

С уважением Мартюшев Леонид

(Добавление)

Да нету, откуда

Только дока - все остальное - метод научного тыка

Используй SetProperty !! Это очень гибкий метод: допустим тебе надо что-то сделать (ну цвет поменять). записываешь в екселе макрос, потом открываешь его и переводишь в синтаксис SetProperty !!

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

Sub Macro1()
' Macro1 Macro

  Selection.Font.ColorIndex = 3
End Sub

получаем

MSExcel1.SetProperty('Selection.Font.ColorIndex', 3) !red

Hlp
Написал: ClaList(2)

forum.clarionlife.net

Office Template (Excel) от SoftMaster