Добрый день уважаемые форумчане!!! Хотел бы поинтересоваться возможно ли поставить роспись на документ??? Если оператор нажимает на кнопку "Сохранить запись в PDF" к данному документу ставилась роспись. На листе 1 я взял роспись руководства и хотелось бы чтоб данная роспись при сохранении добавлялась [img][/img]
Добрый день уважаемые форумчане!!! Хотел бы поинтересоваться возможно ли поставить роспись на документ??? Если оператор нажимает на кнопку "Сохранить запись в PDF" к данному документу ставилась роспись. На листе 1 я взял роспись руководства и хотелось бы чтоб данная роспись при сохранении добавлялась [img][/img]lebensvoll
sboy, спс ознакомился и попытался. Но код ругается (((( смотрите. Я так понял что вот тут я должен указать сам файл gif который я сохранил на рабочем столе
Цитата
With ActiveSheet.Pictures.Insert("...\3.gif")
Вот мой код [vba]
Код
Private Sub CommandButton3_Click() ' Сохранение листа в файле PDF ChDir "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК\Заявка МТ-1.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False With ActiveSheet.Pictures.Insert("Рома.gif") .Left = Range("I23").Left .Top = Range("I23").Top End With End Sub
[/vba]
sboy, спс ознакомился и попытался. Но код ругается (((( смотрите. Я так понял что вот тут я должен указать сам файл gif который я сохранил на рабочем столе
Цитата
With ActiveSheet.Pictures.Insert("...\3.gif")
Вот мой код [vba]
Код
Private Sub CommandButton3_Click() ' Сохранение листа в файле PDF ChDir "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК\Заявка МТ-1.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False With ActiveSheet.Pictures.Insert("Рома.gif") .Left = Range("I23").Left .Top = Range("I23").Top End With End Sub
Udik, спасибо у меня получилось ((((( но как то оно не весело смотрится (((( Слишком большой размер раз ((( и потом ее прозрачность нужно видать как то настраивать (((( чтоб смотрелось как в оригенале мой код вот так вот получается: [vba]
Код
Private Sub CommandButton3_Click() ' Сохранение листа в файле PDF ChDir "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК\Заявка МТ-1.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False With ActiveSheet.Pictures.Insert("C:\Users\a.anisimov\Desktop\Рома.gif") .Left = Range("I23").Left .Top = Range("I23").Top End With End Sub
[/vba]
Udik, спасибо у меня получилось ((((( но как то оно не весело смотрится (((( Слишком большой размер раз ((( и потом ее прозрачность нужно видать как то настраивать (((( чтоб смотрелось как в оригенале мой код вот так вот получается: [vba]
Код
Private Sub CommandButton3_Click() ' Сохранение листа в файле PDF ChDir "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Z:\Группы\ДПром\Управление производством (ООО «М-Бетон»)\Заявки на УПТК\Заявка МТ-1.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False With ActiveSheet.Pictures.Insert("C:\Users\a.anisimov\Desktop\Рома.gif") .Left = Range("I23").Left .Top = Range("I23").Top End With End Sub