Не закинет ли кто примерчик, как рисовать линии в 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)
Спасибо, прояснилось. А не пояснишь, как цвет менять в нужной ячейке:
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)