Вывод картинки в макете!

02.10.06

✎

17:31

Как в макет вывести картинку из графического файла
Пробую следующим образом, но не получается!!

НайденныеФайлы = НайтиФайлы(Путь,имяФайла);
Файл=НайденныеФайлы[0];
ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьМакета.Рисунки.Фото1.Картинка = Файл;

Выводится пустой макет!!!

Помогите плз!!!

1 Волшебник

02.10.06

✎

17:41

ОбластьМакета.Рисунки.Фото1.Картинка = Новый Картинка(Файл);

2 Волшебник

02.10.06

✎

17:42

или Картинка.Установить(...)
не помню

3 B_Max

02.10.06

✎

19:41

НЕ РАБОТАЕТ

4 asady

02.10.06

✎

19:50

(0)
НайденныеФайлы = НайтиФайлы(Путь,имяФайла);
Файл=НайденныеФайлы[0];
МояКартинка = Новый Картинка(Файл);
ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьФото = Макет.Область("Фото");
Рис=ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс=ОбластьМакета.Рисунки.Индекс(Рис);
ТабДок.Рисунки[Индекс].Картинка = МояКартинка;
ТабДок.Рисунки[Индекс].Расположить(ОбластьФото);
ТабДок.Показать();

5 B_Max

02.10.06

✎

20:02

МояКартинка = Новый Картинка(Файл);

Вот на это синтаксис помошник ругается - неправильный параметр!!!

6 asady

02.10.06

✎

20:03

(5)
МояКартинка = Новый Картинка(Файл.Имя); //!!!!!!!!!!!!

7 asady

02.10.06

✎

20:04

(6)+
или
МояКартинка = Новый Картинка(Файл.ПолноеИмя);

8 B_Max

02.10.06

✎

20:07

Так у меня это и есть имя файла.
Метод картинка используется вообще без параметров, как показал синтаксис помошник!!!

9 B_Max

02.10.06

✎

20:12

Был не прав сработало

МояКартинка = Новый Картинка(Файл.ПолноеИмя);

Но теперь ругается на другое

ТабДок.Рисунки[Индекс].Картинка = Картинка;

Индекс находится за границами массива

10 asady

02.10.06

✎

20:12

(9)
Покажи весь код этой процедуры.

11 B_Max

02.10.06

✎

20:15

Для каждого Стр из Товары Цикл
Маска = СокрЛП(Стр.Номенклатура.СтарийКод)+"*.*";
НайденныеФайлы = НайтиФайлы("D:\1c\Sertificat",Маска);
Попытка
файл=НайденныеФайлы[0];

Картинка = Новый Картинка(Файл.ПолноеИмя);
ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьФото = Макет.Область("Фото");
Рис=ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс=ОбластьМакета.Рисунки.Индекс(Рис);
ТабДок.Рисунки[Индекс].Картинка = Картинка;
ТабДок.Рисунки[Индекс].Расположить(ОбластьФото);
ТабДок.Показать();

Исключение
КонецПопытки;

КонецЦикла;

12 asady

02.10.06

✎

20:18

(11) где Табличный документ? покажи весь код процедуры!

13 B_Max

02.10.06

✎

20:21

ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(ИмяМакета);
Для каждого Стр из Товары Цикл
Маска = СокрЛП(Стр.Номенклатура.СтарийКод)+"*.*";
НайденныеФайлы = НайтиФайлы("D:\1c\Sertificat",Маска);
Попытка
файл=НайденныеФайлы[0];

Картинка = Новый Картинка(Файл.ПолноеИмя);
ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьФото = Макет.Область("Фото");
Рис=ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс=ОбластьМакета.Рисунки.Индекс(Рис);
ТабДок.Рисунки[Индекс].Картинка = Картинка;
ТабДок.Рисунки[Индекс].Расположить(ОбластьФото);
ТабДок.Показать();

Исключение
КонецПопытки;

КонецЦикла;

14 asady

02.10.06

✎

20:24

(13)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(ИмяМакета);
Для каждого Стр из Товары Цикл
Маска = СокрЛП(Стр.Номенклатура.СтарийКод)+"*.*";
НайденныеФайлы = НайтиФайлы("D:\1c\Sertificat",Маска);
Попытка
файл=НайденныеФайлы[0];

Картинка = Новый Картинка(Файл.ПолноеИмя);
ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьФото = Макет.Область("Фото");
Рис=ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Индекс=ТабДок.Рисунки.Индекс(Рис);
ТабДок.Рисунки[Индекс].Картинка = Картинка;
ТабДок.Рисунки[Индекс].Расположить(ОбластьФото);
ТабДок.Показать(ОбластьМакета);

Исключение
КонецПопытки;

КонецЦикла;

15 B_Max

02.10.06

✎

20:24

Сработало вот так!!!

Картинка = Новый Картинка(Файл.ПолноеИмя);

ОбластьМакета = Макет.ПолучитьОбласть("Фото");
ОбластьМакета.Рисунки.Фото1.Картинка = Картинка;
ТабДок.Вывести(ОбластьМакета);

16 B_Max

02.10.06

✎

20:26

Всем спасибо!!!