| Nick |
| Отправлено: 09.06.2004, 11:01 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
Кто нибуть делал это.
Весь хел излазил в Excell
так и не понял.
Макрос такой
(но макросы использовать не хочу так как если убрать предупреждение можно нарваться на вирусы)
Range("B23:C23").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Код в программе
App.OlePropertyGet("Range","B23:C23").OlePropertyGet("Select");
App.OlePropertyGet("Merge"); // ошибка
App.OlePropertyGet("Selection").OlePropertyGet("Merge"); // ошибка
|
|
| ** pasha |
| Отправлено: 09.06.2004, 18:57 |
|
Не зарегистрирован
|
Не пробовал, попробуйте
App.OlePropertyGet("Range","B23:C23").OlePropertyGet("Select").OlePropertySet("Merge");
или
App.OlePropertyGet("Range","B23:C23").OlePropertySet("Merge");
доберусь до компа скажу точнее, если получится |
|
| Nick |
| Отправлено: 11.06.2004, 14:52 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
Ну что-ж никто не знает,
возвращаю макрос,
|
|
| telepath |
| Отправлено: 09.11.2004, 14:39 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 132
|
| QUOTE | | App.OlePropertyGet("Selection").OlePropertyGet("Merge"); |
В конце не OlePropertySet("Merge") должно быть? |
|
| Stan |
| Отправлено: 08.02.2005, 17:12 |
|
Не зарегистрирован
|
| QUOTE (telepath @ 09/11/2004, 15:41) | | QUOTE | | App.OlePropertyGet("Selection").OlePropertyGet("Merge"); |
В конце не OlePropertySet("Merge") должно быть? |
А может быть так
| CODE |
Variant App,Sh;
App=Variant::CreateObject("Excel.Application");
App.OlePropertyGet("WorkBooks").OleProcedure("add");
Sh=App.OlePropertyGet("WorkSheets",1);
Sh.OlePropertyGet("Range","B23:C23").OlePropertySet("MergeCells", true); |
|
|
