Herbers Excel/VBA-Archiv

Wasserzeichen beim Speichern

• Wasserzeichen beim Speichern von Jörg vom 09.09.2020 13:33:53
• AW: Wasserzeichen beim Speichern - von UweD am 09.09.2020 13:45:30
  • AW: Wasserzeichen beim Speichern - von Jörg am 09.09.2020 15:52:01
    • AW: Wasserzeichen beim Speichern - von UweD am 09.09.2020 17:04:48
• AW: Wasserzeichen beim Speichern - von onur am 09.09.2020 18:33:12
  • AW: Wasserzeichen beim Speichern - von Jörg am 09.09.2020 21:53:46
    • AW: Wasserzeichen beim Speichern - von onur am 09.09.2020 22:11:36
    • AW: Wasserzeichen beim Speichern - von UweD am 10.09.2020 08:46:42

Betrifft: Wasserzeichen beim Speichern von: Jörg
Geschrieben am: 09.09.2020 13:33:53

Hallo Leute

Ist es möglich beim Speichern ein Wasserzeichen zu erzeugen mit der aufschrift "Kopie"
Zu mein folgenden Code?....

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Application.DisplayAlerts = False
Application.EnableEvents = False

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Firma\OneDrive\ _
Dokumente\Archiv\" & [D5] & "_" & [B11] & Format(Now, "_DD.MM.YYYY_hh.mm.ss") & ".pdf"

Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub




  

Betrifft: AW: Wasserzeichen beim Speichern
von: UweD
Geschrieben am: 09.09.2020 13:45:30

Hallo


Als Hintergrundbild...

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

  Application.DisplayAlerts = False
  Application.EnableEvents = False

  ActiveSheet.SetBackgroundPicture Filename:= _
    "E:\Temp\Visitenkarten\UweD.jpg"

  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Firma\OneDrive\ _
    Dokumente\Archiv\" & [D5] & "_" & [B11] & Format(Now, "_DD.MM.YYYY_hh.mm.ss") & ".pdf"

  Application.EnableEvents = True
  Application.DisplayAlerts = True

End Sub

Es wird automatisch wiederholt

LG UweD

  

Betrifft: AW: Wasserzeichen beim Speichern
von: Jörg
Geschrieben am: 09.09.2020 15:52:01

Hi

Danke

Aber das funktioniert bei mir leider nicht so wie gewünscht.

Wenn ich den Code so einfüge dann bleibt der Hintergrund beim Original dauerhaft mit dem Hintergrund Kopie und bei der Sicherung, die PDF Export Datei ist es nicht vorhanden.

Zudem wollte ich es so dass das Originale normal bleibt,also ohne der aufschrift Kopie und nur die PDF mit dem Hintergrund versehen wird

Geht das?

  

Betrifft: AW: Wasserzeichen beim Speichern
von: UweD
Geschrieben am: 09.09.2020 17:04:48

Stimmt.

Hintergründe werden nicht mit gedruckt


Bleibt nur

einfügen Bild, Transparenz auf 20%- 50% stellen, PDF erzeugen und Bild wieder löschen.


Da muss ich mal suchen

  

Betrifft: AW: Wasserzeichen beim Speichern
von: onur
Geschrieben am: 09.09.2020 18:33:12

Sowas hier?
https://www.herber.de/bbs/user/140158.xlsm

  

Betrifft: AW: Wasserzeichen beim Speichern
von: Jörg
Geschrieben am: 09.09.2020 21:53:46

@onur

Nicht schlecht

Aber wie binde ich das in meinem Code ein?
Am besten ohne diese Schalt Fläche.

Das sollte automatisch gehen sobald ich die Datei Speichere. Die PDF soll gespeichert werden mit dem Wasserzeichen KOPIE und die xlsm Datei soll gespeichert werden ohne das Wasserzeichen

  

Betrifft: AW: Wasserzeichen beim Speichern
von: onur
Geschrieben am: 09.09.2020 22:11:36

Der Knopf war nur zum Einstellen der Position gedacht, stell ihn einfach (im Entwurfmodus) auf "nicht sichtbar" - dann siehst du ihn nur im Entwurfmodus (sonst hast du evtl Probleme, "Kopie" zu positionieren, da unsichtbar.
Der Code steht schon im BeforePrint-Event - d. h. "Kopie" wird nur beim Drucken auf Drucker "Microsoft Print to PDF" mitgedruckt und sichtbar gemacht.
Zum Verstecken einfach Datei Speichern.
https://www.herber.de/bbs/user/140162.xlsm

  

Betrifft: AW: Wasserzeichen beim Speichern
von: UweD
Geschrieben am: 10.09.2020 08:46:42

Hi


dann so...

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
  
  Application.DisplayAlerts = False
  Application.EnableEvents = False
  
  ActiveSheet.Shapes("Kopie").Visible = True
  
  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Firma\OneDrive\Dokumente\Archiv\" & [D5] & "_" _
               & [B11] & Format(Now, "_DD.MM.YYYY_hh.mm.ss") & ".pdf"
  
  ActiveSheet.Shapes("Kopie").Visible = False
  
  Application.EnableEvents = True
  Application.DisplayAlerts = True
  
  End Sub

LG UweD

Beiträge aus dem Excel-Forum zum Thema "Wasserzeichen beim Speichern"