HERBERS Excel-Forum - die Beispiele

Thema: Wasserzeichen in Tabelle einfügen

Home

Gruppe

Format

Problem

Wie kann ich ein Wasserzeichen in eine Tabelle einfügen?

Lösung
Fügen Sie den Wasserzeichentext in ein auf halbtransparent gesetztes Wordartobjekt ein.
StandardModule: Modul1

Sub TestFileOpen()
   Dim iOpen As Integer
   Dim sFile As String
   sFile = InputBox("Path and Filename:", , "c:\test\test.xls")
   If sFile = "" Then Exit Sub
   Do While TestOpen(sFile) = 1
   Loop
   Workbooks.Open sFile
End Sub

Private Function TestOpen(sPath As String) As Integer
   If Dir(sPath) = "" Then
      TestOpen = 2
   Else
      On Error GoTo ERRORHANDLER
      Open sPath For Random Access Read Lock Read Write As #1
      Close #1
   End If
ERRORHANDLER:
   If Err = 70 Then TestOpen = 1
End Function

Beiträge aus dem Excel-Forum zu den Themen Format und Wasserzeichen

Bedingte Formatierung vor Copy/Paste schützen Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren Komplettes Excel Sheet kopieren mit Formaten
Bedingte Formatierung per VBA mit Schleife Kartendiagramm per VBA erstellen und formatieren
bedingte Formatierung Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung Bedingte Formatierung mit UND Verknüpfung
Textformat (VBA) Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren Bedingte Formattierung
Bedingte Formatierung - kleiner als Fehler Zahlenformat Handynr.
Diagramme und ihr Format bedingte formatierung per VBA
Bedingte Formatierung bezogen auf 2. Zelle Formatgleichheit von Zeichenfolgen für SVERWEIS
bedingte Formatierung Bedingte Formatierung
Tabellen - Zellen - Formatieren - Format übertragen
Datumsformatierung Formatierung anderer Diagramme
Zellenformatierung speichern Diagrammformatierung übertragen
Zahlenformat global überprüfen wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung Zahlenformatierung in einem Textfeld
Zahlenformat bedingte Formatierung für zellenbereich
Format Datum / Uhrzeit Eilt - Formatierung "in 1000"
Bedingte Formatierung mit 2 Bedingungen Combobox, CheckBox, TextBox Formatierung
Formatierung Dezimalzahlen bei Combobox-Eingaben Dateiformat vorgeben
Datums-Format bei Verketten "falsch" Text mit Format in Textbox übertragen
Format mit VBA kopieren