Хочу хранить в контрагенте картинку печати и потом ее выводить. Проблемма в том что есть картинки в екселе - где они "прозрачные" (видно текст под ними). Никак не получаеться сделать это в 1С.

Никто не делал подобного? Есть советы , ссылки?

Причем пару раз получилось вставить в таблицу 1с вручную картинку - получилось так же прозрачно. Пробовал еще 10 раз на том же рисунке, не получаеться:(. В чем тут дело?

мухлюет автор-то...

ап, ничего криминального

http://www.sinor.ru/~filez/hare/picwofon.html

(3) ОБЭПУ потом расскажешь :)

(4)Спасибо, сам похожим образом присобачился в ОЛЕ из Ворда вручную прозрачно вставлять:)
А как теперь автоматически. Тоесть в зависимости от выбранного контрагента. В каком файле хранить? Как выводить?

А как в OLE объект загрузить рисунок из файла? Примерчиков нет?

OLE объект - рисунок WORD!!! ПРием...
Как хотя бы в 1с можно прочитать объектную модель этого объекта?

Что такое Shapes -  что это?

(7) см ТекущийОбъект

ненужен тебе ворд, в (4) все расказано и показано...

(11)Мне не надо ручками. Мне надо автоматически. Есть путь к файлу, есть ОЛЕ объект типа  рисунок word. Надо что бы из файла рисунок загружался в этот объект.

АП

(12) и не будет ручками
на Таблица ресуешь картинку, ничего в качестве файла не указываешь, а в ней пишешь Таб.ТекущийОбъект.Загрузить(Карт), в свойствах, в тексте
а в модуле

Процедура Сформировать()
   Перем Файл,Каталог;
   Карт="";
   Если ФС.ВыбратьФайлКартинки(0,Файл,Каталог,"","","")=1 Тогда
       Карт=Каталог+Файл;
   Иначе
       Возврат;
   КонецЕсли;
   Таб=СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.Вывести();
   Таб.Показать();
КонецПроцедуры


(14)Это мы умеем:( Она от не прозрачная - вот в чем проблемма. Поэтому я пытаюсь сделать рисунок МС Ворд - так как он прозрачно вставляется.

Создавай объект оле Ворда и кури его методы.
Я обычно делаю так: открываю Ворд/Ёксель, начинаю запись макроса вручную, делаю что мне нужно, останавливаю запись и смотрю в Васик-редакторе (что по alt-F11) что он там назаписывал. Потом разбираюсь с этими объектами и методами к ним в ObjectBrowser'e. Это работает и с неофисными объектами (см. Tools\Referenses), но с офисом проще - по его объектам хелп есть.
Таки образом я получил по твоей теме:

Sub Макрос1()
   Selection.InlineShapes.AddPicture FileName:= _
       "D:\Документы\Мои рисунки\PHOTOS\02.jpg", LinkToFile:=False, _
       SaveWithDocument:=True
End Sub
Sub Макрос2()
   Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
   Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
   Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

Вообщем делаю так:

1)Вставляю ОЛЕ объект рисунок ворд
2)В нем пишу Печать_(Таб.ТекущийОбъект)

Функция Печать_(Картинка)
   Картинка.InlineShapes.AddPicture(pathname,1, 1);
КонецФункции

//на первый взгляд результат нулевой. Только когда я начинаю редактировать выходную таблицу вручную, он показывает мне нужную печать. Я так понимаю надо что то вроде Картинка.InlineShapes.Activate()... и все пойдет???

+(16) в первом открываю картинку из файла, а во втором делаю ее прозрачной

Блин я замучился уже. Вобщем глючит все по страшному.

Картинка.InlineShapes.AddPicture(pathname,0, 1);
   
Картинка.InlineShapes(1).PictureFormat.TransparentBackground = 1;
Картинка.InlineShapes(1).Fill.Visible = 1;

На такой код выводил картинку но не прозрачную.

Картинка.InlineShapes(1).Fill.Visible = 1; - писал что ошибка, но если в отладчике вычислить картинка появлялась.

Теперь на первой строчке даже после перегзагрузки пишет - " Неизвестная ошибка"

Fill.Visible = 1 это msoFalse по-твоему?

(20)Найчи как надо. Спасибо тебе за помощь, хоть как то продвинулся

И какого х.. появиласть эта ошибка, не было ведь ее:

Картинка.InlineShapes.AddPicture(pathname,0, 1);
{E:\ПЕЧАТЬ.ERT(12)}: Неизвестная ошибка

(22)Когда открыт ворд - нет такой ошибки, что за х... как обойти?

Я решил проблемму. Без ОЛЕ. Прикинте. Кто догадаеться как? Все прозрачно как никогда:)))

Завтра посмотрю догадался ли кто. Решение простое:))).

АП

колись уже

Я думал все забили уже:)

Ладно. Колюсь:

Делаем все как в (14). А что бы подпись не заслоняла печать, делаем подпись в тексте (таблица-вставить рисунок-текст). Делаем и то и другое прозрачным, а печать на задний план. Получаеться прозрачный текст над печатью. Также можно нарисовать печать и "под таблице" просто придеться делать табличку из того же таекста с рамочкой.

Вот так вот:)