Вставка объект рисунок после обработки в WIA на лист

[tae1980]

Обработал рисунок в WIA как его теперь вставить не сохранить в файл, а вставить на лист?

    Dim objImageFile As Object
    Dim objImageProcess As Object
    Set objImageFile = CreateObject("WIA.ImageFile")
    Set objImageProcess = CreateObject("WIA.ImageProcess")
    ' Загружаем файл в компонент:
    objImageFile.LoadFile ПутьКФайлуСКартинками
    ' Обрабатываем…
    With objImageProcess
        ' Обрезаем:
        .Filters.Add .FilterInfos("Crop").FilterID
        With .Filters(1).Properties
            ' Подрежем сверху-снизу
            .Item("Top") = objImageFile.Width \ 10
            .Item("Bottom") = objImageFile.Width \ 10
            ' Подрежем справа-слева
            .Item("Left") = objImageFile.Height \ 10
            .Item("Right") = objImageFile.Height \ 10
        End With
        ' Применяем заданные выше фильтры
        Set objImageFile = .Apply(objImageFile)
    End With

[tae1980]

Такое вообще возможно или нужно сохранять файл на диск в обязательном порядке?

[IgorGO]

через буфер обмена (через карман) должно получиться.

[tae1980]

Сообщение от IgorGO

через буфер обмена (через карман) должно получиться.

Пошел по пути сохранения временного файла. Очень не хочется. Но так как мне нужно будет прогонять через процедуру в пике не более 50 файлов, решение терпимое.

А если зайти с другой стороны...
Во общем задача такая: нужно выводить на печать сканы документов. При этом в нижнем правом углу необходимо размещать надпись вида: "Копия верна. ФИО", там же поместить скан печати и подписи человека.

Хотел делать через срытый лист на котором размещаю надпись, подпись и печать и после только меняю по порядку сканы и печатаю. Это же решит проблему если размер скана меньше размера листа а4.

Как я понимаю подобное можно сделать средствами WIA:
1. Загружаем рисунок.
2. Приводим к книжному расположению.
3. Проверяем его размер, если меньше а4 - добавляем белый лист, если больше - отрезаем лишнее (лучше сохранять истинные размера, потеря до 1 см с каждой стороны терпима), если сильно больше (на пример а3) - масштабируем до а4.
4. Размещаем надпись, печать, подпись.
5. Печатаем на нужный принтер.

Можно ли этапы 3-5 провести только силами WIA? В частности я не знаю как увеличить размер полотна рисунка не масштабирую сам рисунок, как нанести надпись и как вывести на принтер.

[tae1980]

Эксперименты и интернет поставили перед фактом что из WIA распечатать нельзя. Есть два вопроса:
1. Как можно нанести текст прямо на картинку?
2. WIA позволяет объединить две картинки. Можно ли объединить с прозрачностью. Скажем сделать чистый белый цвет прозрачным?

Идея с размещением рисунка на лист терпит поражение. Размер а4 210х297, устанавливаю все поля равные 0, обрезаю картинку до 20 см.
И все равно ексель выдает такое как на рисунке (пунктир - зона печати). То есть по горизонтали не лезем на лист???? Как такое может быть ума не приложу, но ни чего не помогает. ( Может кто знает что за фигня и как быть?

[strannick]

Если размер скана под А4 вставьте в колонтитул и поиграйте там полями. Ну а если надо вставлять подпись и печать, вставляйте по координатам на лист, только изображения берите PNG (будет прозрачность).

[tae1980]

Сообщение от strannick

Если размер скана под А4 вставьте в колонтитул и поиграйте там полями.

А есть разница? Не лезем же по ширине, а колонтитул влияют на высоту.
Парадокс, какой-то.

Сообщение от strannick

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

Есть пример кода как вставить надпись (рисунок) по координатам? Я использую этот, но возможно он не самый лучший

        With Тек_Таблица.Shapes.AddTextEffect(msoTextEffect2, УчастокИмя, "Arial", 5#, msoFalse, msoFalse, word(DXDY, 2), word(DXDY, 1))
            .Adjustments.Item(1) = 0#: .ScaleHeight 0.35, msoFalse, msoScaleFromTopLeft
            .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
            .Line.ForeColor.RGB = vbBlack
            .TextEffect.Tracking = 1.5
        End With

[strannick]

Вот кусок кода:

Sub InsertPicksandSavePDF()
znach = Range("J9").Value
ActiveSheet.Pictures.Insert("D:\Баз а\Образцы печатей\" & znach & ".PNG").Select ' выбираем файл изображения для вставки
Selection.ShapeRange.IncrementLeft (622.25) ' координата Left
Selection.ShapeRange.IncrementTop (550.75) ' координата Top

У меня изображения были привязаны к номерам. Если одно, можно сразу прописать путь без znach.
Дальше идет сохранение в PDF где можно включить печать на принтер.

Так а с шириной что за проблема я так и не понял. Не масштабируется рисунок?

[tae1980]

Сообщение от strannick

Дальше идет сохранение в PDF где можно включить печать на принтер.

Это для excel2003 или для excel2007? Если для excel2003 интересно как ты сохраняешь в pdf.

[strannick]

Для 2007. А там с PDF нет проблем.