Постановка печати сю макроса

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Постановка печати сю макроса (Макросы/Sub)

Sashagor1982

Дата: Среда, 20.07.2016, 14:39 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 288

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Подскажите пожалуйста решение следующей задачи. В прикрепленном файле лист документа на который с помощью макроса необходимо поставить две печати. Одна на фото.

Вторая на подпись..

Причем та которая на подпись может стариться в разных местах в зависимости от подписи, ориентация на место где фамилия

Заранее спасибо....

К сообщению приложен файл: 3777105.zip (20.8 Kb)

Сообщение отредактировал Sashagor1982 - Среда, 20.07.2016, 20:28

Ответить

sboy

Дата: Среда, 20.07.2016, 14:48 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

без экселевского файла как-то так:
задаете ячейку, в которой будет верхний левый угол печати, например А1
[vba]

Код

Range("A1").Parent.Pictures.Insert('полный путь к файлу с печатью')

[/vba]

Яндекс: 410016850021169

Ответить

Sashagor1982

Дата: Среда, 20.07.2016, 17:53 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 288

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Несмотря на заданную ячейку ставит все время в одно и тоже место. В чем ошибка?

Ответить

Manyasha

Дата: Среда, 20.07.2016, 18:15 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Sashagor1982, код, предложенный sboy, вставляет картинку с координатами left и top активной ячейки.
Чтобы задать ячейку в коде, попробуйте так написать:
[vba]

Код

With ActiveSheet.Pictures.Insert("...\3.gif")
.Left = Range("A1").Left
.Top = Range("A1").Top
End With

[/vba]
[p.s.]

Цитата Sashagor1982, 20.07.2016 в 14:39, в сообщении № 1

В прикрепленном файле лист документа

нет файла[/p.s.]