VBA Kontrollkästchen
13.01.2021 10:59:40
Pepperohni
Wenn dieses angeklickt wird soll über der ganzen Seite ein Wasserzeichen mit ENTWURF stehen.
Ich muss dazu sagen, ich weiß nicht, ob VBA Excel ident ist mit VBA Word,
ist weiß aber einfach nicht mehr weiter.
Dieses Kontrollkästchen und das Wort Entwurf sollen auf jeden fall ausgeblendet sein.
Der Code funktioniert einigermaßen. Wenn das Kontollkästchen angeklickt wurde erscheint das Wasserzeichen.
Wenn ichs wieder wegklicke bleibt es aber.
Ebenso wird das Kästchen und der Begriff Entwurf noch angezeigt.
So schaut der Code momentan aus:
Private Sub Entwurf_Click()
' Wasserzeichen "Entwurf" definieren
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, _
"Entwurf", "Times New Roman", 1, False, False, 0, 0).Select
Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1"
Selection.ShapeRange.TextEffect.NormalizedHeight = False
Selection.ShapeRange.Line.Visible = False
Selection.ShapeRange.Fill.Visible = True
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Rotation = 315
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(7.52)
Selection.ShapeRange.Width = CentimetersToPoints(15.04)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument