Добрый день
Прошу подсказать есть ли в 1с метод либо параметр, позволяющий повернуть вставленный рисунок в табличный документ на произвольный угол. Ниже текст примера

Картинка = Ссылка.Хранилище.Получить();
ИмяВременногоФайла = Имяфайла;
Картинка.Записать(ИмяВременногоФайла);
Picture = MSWord.Selection.InlineShapes.AddPicture(ИмяВременногоФайла, Ложь, Истина);
Shape = Picture.ConvertToShape();
Shape.WrapFormat.Type = 5;
Shape.Left = 50;
Shape.Top = 50;

Прошу подсказать, как дополнить текст, чтобы повернуть например на 30 градусов рисунок. Или в 1с нет такого средства?

Я не вижу в примере табличного документа

А для ворда есть Shape.Rotation
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word.shape.rotation.aspx

Про WOrd - спасибо. Там пока не стоял вопрос.

Не тот фрагмент вставил, извиняюсь. Исправленный вариант примера:

ДанРисунок = Ссылка.Хранилище.Получить();
Картинка=Новый Картинка(ДанРисунок .ПолучитьДвоичныеДанные());
ОбластьМакета.Рисунки.ПечатьОргКонтрагента.Картинка=Картинка;
ТабДокумент.Вывести(ОбластьМакета);

В макете задан рисунок в виде квадрата, который необходимо повернуть на угол (аналогично тому как в экселе можно повернуть рисунок)

(3) В 1С нельзя.

(0) Можно повернуть внешними компонентами, например http://infostart.ru/public/74981/

(5) или WIA Automation
http://msdn.microsoft.com/en-us/library/ms630827.aspx

Спасибо

В общем, внешними компонентами повернуть не получилось. Те что нашел - делают только повороты на 90градусов.

Сделал с помощью запуска внешнего приложения. Утилита convert из пакета ImageMagick мне помогла. Параметр rotate позволяет повернуть рисунок.

Будь джентельменом, покажи свой код, как поворачивал.

(10) у меня есть такая обработка. Скинуть?

(11) - можно текст выложить .

Еще можно сделать через библиотеки от смотрелок irfanview и xnview

//Неудачный проект!!!
Функция ПовернутьКартинкуНаГрадусMiniRotate(Картинка,Градус) Экспорт
    
    Попытка
        //http://infostart.ru/public/241765/
        ПутьMiniRotate = КаталогВременныхФайлов()+"MiniRotate04.exe";
        ФайлMiniRotate = Новый Файл(ПутьMiniRotate);        
        Если НЕ ФайлMiniRotate.Существует() Тогда
            
            ПрограммаИзПамяти = ПолучитьОбщийМакет("ПрограммаMiniRotate");
            Если ПрограммаИзПамяти <> Неопределено Тогда        
                ПрограммаИзПамяти.Записать(ПутьMiniRotate);
            КонецЕсли;
        КонецЕсли;
        
        пИмяВремКартинки = ПолучитьИмяВременногоФайла("bmp");
        Картинка.Записать(пИмяВремКартинки);
        
        пИмяВремКартинкиКон = ПолучитьИмяВременногоФайла("bmp");
        
        
        WshShell = Новый COMОбъект("WScript.Shell");
        WshShell.Run("" + ПутьMiniRotate + " """ + пИмяВремКартинки + """ /u:" + Формат(Градус,"ЧДЦ=0; ЧН=0; ЧГ=0") + "/fs:""" + пИмяВремКартинкиКон + """" ,0,-1);    
        
        пКартинкаНовый = Новый Картинка(пИмяВремКартинкиКон,Истина);
    Исключение
        ЗаписьЖурналаРегистрации("Переворот картинки ШК под углом", УровеньЖурналаРегистрации.Ошибка,,,
        ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
        
        пКартинкаНовый = Неопределено;
    КонецПопытки;
        
    УдалитьВременныйФайл(пИмяВремКартинки);
    УдалитьВременныйФайл(пИмяВремКартинкиКон);
    
    Возврат пКартинкаНовый;
КонецФункции

//Требуется библиотека C:\Windows\System32\wiaaut.dll
Функция ПовернутьКартинкуНаГрадусWIA(Картинка,Градус) Экспорт
    Перем Image,IP,IP1,К;
    
    Попытка
        пИмяВремКартинки = ПолучитьИмяВременногоФайла("tmp");
        Картинка.Записать(пИмяВремКартинки);
        
        Image = Новый COMОбъект("WIA.ImageFile");
        Image.LoadFile(пИмяВремКартинки);
        
        Если Image = Неопределено Тогда
            УдалитьВременныйФайл(пИмяВремКартинки);
            Возврат Неопределено;
        КонецЕсли;
        
        IP = Новый COMОбъект("WIA.ImageProcess"); //создаем объект WIA для редактирования изображения
        IP.Filters.Add(IP.FilterInfos("RotateFlip").FilterID); //создаем WIA-фильтр для поворота
        IP1 = IP.Filters(1);
        Для К = 1 По IP1.Properties.Count Цикл
            Если IP1.Properties(К).Name = "RotationAngle" Тогда
                IP1.Properties(К).Value = Градус; //вертеть можно на 90,180 и 270 грудосов
                Прервать;
            КонецЕсли;
        КонецЦикла;
        
        Image = IP.Apply(Image);
        
        пИмяВремКартинки2 = ПолучитьИмяВременногоФайла("bmp");
        Image.SaveFile(пИмяВремКартинки2);
        
        Image = "";
        IP = "";
        IP1 = "";
        
        пКартинкаНовый = Новый Картинка(пИмяВремКартинки2,Истина);
    Исключение
        ЗаписьЖурналаРегистрации("Переворот картинки ШК под углом", УровеньЖурналаРегистрации.Ошибка,,,
        ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
        
        пКартинкаНовый = Неопределено;
    КонецПопытки;
    
    УдалитьВременныйФайл(пИмяВремКартинки);
    УдалитьВременныйФайл(пИмяВремКартинки2);
    
    Возврат пКартинкаНовый;
КонецФункции

Процедура УдалитьВременныйФайл(пИмяВремКартинки) Экспорт

    Попытка
        Если пИмяВремКартинки = Неопределено или ПустаяСтрока(пИмяВремКартинки) Тогда
            Возврат;
        КонецЕсли;
            
        ВремФайл = Новый Файл(пИмяВремКартинки);
        Если ВремФайл.Существует() и ВремФайл.ЭтоФайл() Тогда
            УдалитьФайлы(пИмяВремКартинки);
        КонецЕсли;
    Исключение
    КонецПопытки;
    
КонецПроцедуры

(13) По ПовернутьКартинкуНаГрадусMiniRotate, она на Сервере х64 не работает. Если только локально на клиентской машинке под х32.

По поводу ПовернутьКартинкуНаГрадусWIA, требует на сервере WIA, но у меня были связаны руки... в общем на Сервере 2012 х64 не взлетело :(

Но локально на клиенте все вертит на ура :)

Вот https://db.tt/qci6msUh
Писал для 8.1, под УФ не переделывал, не было потребности

(15) ImageMagick у тебя там версия 6.4.5
И на Сервере 2012 не работает :(   (но все ровно спасибо, и зачем писать все на английском, дело привычки или как?)

(16) IM можно поменять. Загрузи mogrify.exe из дистрибутива

Оно сначала было частью другой обработки по обмену с сайтом, а там разные xml'и, rpc, json'ы. Ну и так и осталось.

Тестовый пример:

ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");

ОбластьМакета = Макет.ПолучитьОбласть("Область1");
Рис=Макет.Рисунки.ПечатьОрганизации;
ПО=Организация.ПечатьОрганизации;
Если ЗначениеЗаполнено(ПО) Тогда
    Дан=ПО.Хранилище.Получить();
    
    СтарыйФайл = "d:\file1.bmp";
    Дан.Записать(СтарыйФайл);
    НовыйФайл = "d:\file2.bmp";
           
    ИФайл = "d:\convert.exe -rotate 30 "+СтарыйФайл +" " +НовыйФайл; //30 угол поворота
    ЗапуститьПриложение(ИФайл);

    Кар=Новый Картинка(НовыйФайл);
    Рис.Картинка=Кар;
КонецЕсли;
ТабДок.Вывести(Макет);
ТабДок.Показать();

Но есть пара проблем
1. рисунок не успевает сконвертиться при первом запуске. Поэтому процедуру разбил на два действия. 1) конвертация 2) печать уже сконвертированного рисунка.
2. при вращении все таки изменяется сам рисунок и он фактически сжимается при печати. Как это обойти - пока не нашел.
В связи чем есть два вопроса:
а) может ли кто подсказать как сохранить рисунок в виде круга (чтоб избежать изменения размеров рисунка)
б) может все таки есть в 1с средства позволяющие повернуть на произвольный угол тот фрагмент, где макете отображается рисунок?

В тесте вместо ПО - ПечатьОрганизации, сорри за такое сокращение.

(19) При поворотах на углы, отличные от кратных 90 для любых изображений идет изменение размера.

Хрен в ним, с размером.
Вопрос - чем заливать дополнительные области.

http://forum.vingrad.ru/topic-179025.html
Отправка почты - шифрование SSL

(21) Про это я и писал - проблема 2. Как ее решить, кто может помочь. Если можно пример текста для 1с

Все таки нужен сдвиг и поворот на угол области с рисунком в макете (кроме поворота нужен еще и сдвиг влево-вправо,вверх-вниз. Все таки есть ли какие либо функции в 1с, позволяющие управлять этой областью в табличном документе?

(25) нет, высотой строки и шириной колонки можешь регулировать только, а так используй ActiveX

"Сохранить рисунок в виде круга" — ААААА! Смешарики атакуе!!!111

(27) Да, безумная идея...

Но если б рисунок был бы в форме круга, а не прямоугольник, то это бы многое решило..

(25) можно пример как это сделать. Спасибо

(26) прошу пример, если есть, как можно управлять вот этим объектом Макет.Рисунки.Рисунок через ActiveX. Рисунок - прямоугольная область на макете.

Появился еще один вариант - обрезать лишние области на сконвертированном рисунке. Зная размеры рисунка, можно рассчитать - на сколько увеличится рисунок, и по краям сделать обрезку, чтобы приблизить к первоначальному размеру рисунка.
В ImageMagick это можно сделать?
Либо другую утилиту можете предложить?

Ура! (31) вроде реализовал

convert 1.bmp -gravity Center -crop 346x346+0 2.bmp


1.bmp - повернутый файл
2.bmp - результат

обрезаю по центру сконвертированного файла согласно первоначального размера рисунка (346пикселей)

на выходных уже на конфе протестирую.

(26) Но это так актуально. Хотелось бы управлять непосредственно областью рисунка в макете. Прошу дать пример

пиши компоненту с использованием виндовых функций GDI

курить тут http://stackoverflow.com/questions/2270110/how-to-rotate-bitmap-in-windows-gdi

http://infostart.ru/public/138263/

делал с помощью файла text_1c.ocx

правда реализовывал в 7.7. Также этот ActiveX вставлял и в 8.1  (настройками баловался, но реализовывать не надо было - добавляется как внешний объект)

пример под 7.7 - но его легко преобразовать и под 8.х - т.к. используются свойства ActiveX - надо, пиши емайл - закину

(где качал смотрю уже страницу убили автора)

возьмешь если надо - https://yadi.sk/d/9KH7KShxbgZv2.

(39) Спасибо. Буду разбираться

(15) Спасибо, добрый человек.