Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Excel защита картинок (http://forums.kuban.ru/f1040/excel_zashita_kartinok-3591406.html)

pavlo 23.01.2013 13:48

Excel защита картинок
 
Всем привет!

Сразу скажу лист защищать паролем нужно весь, но:
Проблема вот такая, в новом екселе внутрь впихнуть картинку получается только так:

Лист.Shapes.AddPicture(рИмя,0,1,ФЕ.Selection.Left+1,ФЕ.Selection.Top+1,хШирина,хВысота-2);

потом делаю защиту листа и всё бы ничего, но пожелали у этих объектов (картинок) убрать защиту объекта, чтобы их размер можно было изменять не смотря на защиту и не снимая эту самую защиту.
Сколько не бился у Shapes не могу найти где метод Locked, хотя если на объекте настройки визуально зайти, есть.
Запись макросов ничего толком не даёт, потому не могу понять как это сделать (убрать галку защищать объект у картинки). В макросах ссылается на объект Selection, но как его получить из Shapes вопрос :(

Может кто сталкивался и знает решение?

методы Лист.Pictures.Insert(рИмя).Select() не предлагать, в новом не пашут, всмысле там остаются только ссылки и если переслать ексель, картинок уже не будет.

pavlo 24.01.2013 08:42

С новыми силами взявшись за MSDN отвечаю сам себе, для истории :)
Снять защиту и вообще получить свойства можно Лист.Shapes(Лист.Shapes().Count).Locked=0;
где Лист.Shapes().Count это в моём случае последняя картинка в коллекции.


Текущее время: 22:37. Часовой пояс GMT +3.