Вставка сторок в Excel

Предыдущая123456789Следующая

Параграф добавлен по просьбам трудящихся 27.7.2006.

Функции этого примера см. выше. 1.16

//См выше 1.16 iStartExcel("C:\\1.xls");vVarSheet.OlePropertyGet("Rows","7:7").OleProcedure("Select");Variant v=vVarApp.OlePropertyGet("Selection");//xlShiftDown = -4121//xlShiftToRight = -4161//xlShiftUp = -4162//xlShiftToLeft = -4159v.OleProcedure("Insert", -4162);//Сохраняем в C:\\1.xls См выше 1.16 iStopExcel(1,"C:\\1.xls");


Грузим и двигаем рисунки по листу

Параграф добавлен по просьбам трудящихся 1.8.2006.

Функции этого примера см. выше. 1.16

try{ if(iStartExcel("C:\\1.xls")) return; vVarSheet.OlePropertyGet("Shapes").OleFunction("AddPicture", "c:\\1.bmp",false,true,vVarSheet.OlePropertyGet ("Range","B10").OlePropertyGet"Left"), vVarSheet.OlePropertyGet("Range","B10").OlePropertyGet("Top"),-1,-1); vVarSheet.OlePropertyGet("Pictures","Picture 1"); Variant v=vVarApp.OlePropertyGet("Selection"); v.OlePropertyGet("ShapeRange").OleFunction("IncrementLeft",-177.75); v.OlePropertyGet("ShapeRange").OleFunction("IncrementTop",100); v.OlePropertyGet("ShapeRange").OleFunction("IncrementRotation",-90); }catch(...) { } iStopExcel(1); Close();


Установить параметры страницы

Variavt v=VarSheet.OlePropertyGet("PageSetup")v.OlePropertySet("LeftMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("RightMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("TopMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("BottomMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("RightMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("HeaderMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));v.OlePropertySet("FooterMargin",vVarApp.OleFunction("InchesToPoints",0.393700787401575));

Защита книги и страницы

Защитить книгу

Данный пример демонстрирует установку защиты от внесения изменений в документ.

Variant v=vVarApp.OlePropertyGet("Workbooks").OlePropertyGet("Item",1);v.OlePropertySet("WritePassword","mypassword1");v.OlePropertySet("ReadOnlyRecommended",false);vVarApp.OlePropertyGet("Workbooks"). OlePropertyGet("Item",1).OleProcedure("SaveAs",vasS.c_str());

Используя вместо WritePassword (или дополнительно с ним) просто Password (OlePropertySet("Password","mypassword1")) будет установлена защита на доступ к книге.



Снять защиту книги

Метод Open OLE объекта Excel имеет много параметров, среди которых нас интересует Password - пароль на доступ к документу и WriteResPassword - пароль разрешения внесения изменений в документ.

VARIANT Open(VARIANT Filename, VARIANT UpdateLinks, VARIANT ReadOnly, VARIANT Format, VARIANT Password, VARIANT WriteResPassword, VARIANT IgnoreReadOnlyRecommended, VARIANT Origin, VARIANT Delimiter, VARIANT Editable, VARIANT Notify, VARIANT Converter );

Снять защиту с книги - это значит открыть ее с установленными паролями. Следущий код снимает защиту от запрета внесения изменений в документ (без его использования можно открыть книгу только для чтения).

vVarBooks.OleProcedure("Open",vasPath.c_str(),0,FALSE,1,"","mypassword1",FALSE);

Защитить страницы


3424885114076012.html
3424954758922452.html
    PR.RU™