LibreOffice-Forum

Code: Alles auswählen

sub Entwurf
    delete_old_Watermarks
    nColor = 13158600'grau
    'nColor = RGB(255,0,0)'rot
    set_watermark("Entwurf",nColor)
end sub

Sub Abschrift
    delete_old_Watermarks
    nColor = 13158600'grau
    'nColor = RGB(0,255,0)'grün
    set_watermark("Abschrift",nColor)
end sub

Sub Entfernen
    delete_old_Watermarks
    'set_watermark("",13158600)
end sub

sub set_watermark(sWatermark,nColor)
    dim document   as object
    dim dispatcher as object
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Dim args(4) As New com.sun.star.beans.PropertyValue
    args(0).Name = "Text"
    args(0).Value = sWatermark
    args(1).Name = "Font"
    args(1).Value = "Liberation Sans"
    args(2).Name = "Angle"
    args(2).Value = 45
    args(3).Name = "Transparency"
    args(3).Value = 0.5
    args(4).Name = "Color"
    args(4).Value = nColor
    dispatcher.executeDispatch(document, ".uno:Watermark", "", 0, args())
end sub

sub delete_old_Watermarks
    oDrawpage = Thiscomponent.drawpage
    for i = oDrawpage.Count - 1 to 0 step - 1
        oShape = oDrawpage(i)
        if oShape.Name  = "PowerPlusWaterMarkObject" then 
             oDrawpage.remove(oShape)
        endif
    next i
end sub