MS Excel

Téma: docházka

Zaslal/a ji026441 15.12.2010 20:02

Ahoj, mám vytvořenou docházku a v ní makro pro tisk, které přidá do zápatí datum a naskenovaný podpis. Já chci zajistit, že pokud podpis.jpg nebude k dispozici, makro na to upozorní a umožní buď pokračovat, nebo ukončit. Zde je makro:
Sub TiskDatumPodpis()
'
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ActiveWorkbook.Path & "\" & "podpis.jpg"
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$43"
With ActiveSheet.PageSetup
.LeftFooter = "&D&G" & Chr(10) & "datum a podpis pracovníka"
.RightFooter = "datum a podpis vedoucího"
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ""
With ActiveSheet.PageSetup
.LeftFooter = ""
.RightFooter = ""
End With

End Sub