Wasserzeichen in .pdf

04/09/2007 - 14:28 von Lothar Geyer | Report spam
Ich habe ein Wasserzeichen mit folgenden Befehlen erzeugt:

With MSWord
For Each DocSection In .ActiveDocument.Sections
DocSection.Range.Select
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

.Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1 _
, "Entwurf", "Arial" _
, 1, True, False, 0, 0).Select

.Selection.ShapeRange.TextEffect.NormalizedHeight = False
.Selection.ShapeRange.Line.Visible = False
.Selection.ShapeRange.Fill.Visible = True
.Selection.ShapeRange.Fill.Solid
.Selection.ShapeRange.Fill.ForeColor = wdBlack
.Selection.ShapeRange.Fill.Transparency = 0.3
.Selection.ShapeRange.Rotation = 315
.Selection.ShapeRange.LockAspectRatio = True
.Selection.ShapeRange.Height = .CentimetersToPoints(6)
.Selection.ShapeRange.Width = .CentimetersToPoints(16)
.Selection.ShapeRange.Left = wdShapeCenter
.Selection.ShapeRange.Top = .CentimetersToPoints(10)
.ActiveDocument.Range(0, 0).Select
Next DocSection
End With

Nun habe ich ein solches Dokument mit Acrobat 6 in eine .pdf-Datei
konvertiert. Und das Wasserzeichen ist nun "solid black", also kein
"Grau" oder so. Was mache ich falsch?
Kann man den Schriftzug im Wasserzeichen auch mit mit einem Raster
darstellen?

Lothar Geyer
 

Lesen sie die antworten

#1 Thomas Gahler
04/09/2007 - 16:40 | Warnen spam
Hallo Lothar


.Selection.ShapeRange.Fill.ForeColor = wdBlack


Du nimmst die falschen Farbkonstanten

Entweder
- Selection.ShapeRange.Fill.ForeColor = wdColorAqua ' RGB(225, 25, 125)
oder
- Selection.ShapeRange.Fill.ForeColor = RGB(225, 25, 125)

(Natürlich deine Farben eintragen)






Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen