Indsætte et vandmærke?

Du kan ikke umiddlebart lave vandmærker (eller noget der ligner) i Excel.

Skal det udskrives eller bare vises på skærmen?

erikjuul

Det skal kunne udskrives

mvh
Teddy

Du kan jo lave et "vandmærke-billede" i et billedbehandlingsprogram og så indsætte det.

hej catbody
Du må venligst specificere lidt mere er der et specielt billedebehandlingsprogram du tænker på? og hvordan gør man så i dette program?

I Excel Xp kan man indsætte billede (billedtoolbar), og vælge Farve/"Washout" (ved ikke hvad det hedder på dansk)

Eller bedre: brug WordArt (tegning-toolbar i Excel) - her kan du lave stort set alle effekter.

Denne makro skriver "12" i grå outline - er det noget i denne stil?
Sub Macro1()
    ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "12", "Arial Black", 36#, _        msoFalse, msoFalse, 345#, 180#).Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub

Transparency skal i øvrigt sættes til 100%

Billedbehandlingsprogram:
Adobe Photoshop  (hundedyrt)
PaintShopPro  (rimelig pris)
Gimp  (gratis)  http://www.gimp.org 
I alle åbner man sit originalbillede og sætter sin transperans/gennemsigtighed til det man ønsker.

stefanfuglsang-> Det næste problem er vel så at få placeret det rigtige nummer sammen med den rigtige tekst.

Det kan løses, følgende makro placerer teksten med hjørnet i celle D8:
Bemærk at transparency er et tal fra 0 til 1 (ikke 0% til 100%)
Sub SetWatermark()
    Dim s As TextEffectFormat, num As Integer, pos As String
    'det tal der skal indsættes
    num = 12
    'positionen:
    pos = "d8"
   
    'vent med opdateringer:
    Application.ScreenUpdating = False
    'lav tekst:
    ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, num, "Arial Black", 36#, _
    msoFalse, msoFalse, 345#, 180#).Select
    ' lav ændringer i tekst:
    With Selection.ShapeRange
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Fill.Transparency = 1#
        .Line.Weight = 0.75
        .Line.DashStyle = msoLineSolid
        .Line.Style = msoLineSingle
        .Line.Transparency = 0.5
        .Line.Visible = msoTrue
        .Line.ForeColor.SchemeColor = 22
        .Line.BackColor.RGB = RGB(255, 255, 255)
    End With
    'kopier tekst:
    Selection.Copy
    'indsæt kopien:
    Worksheets(1).Paste Destination:=Range(pos)
    'slet oprindelig tekst:
    Selection.Delete
    ' opdater skærm
    Application.ScreenUpdating = True
End Sub

Hej stefanfuglsang
Sådan! tusind tak for hjælpen - du har virkelig fortjent dine 100 point. Igen et godt eksempel på topkvalificeret hjælp via EKSPERTEN - fra EKSPERTEN til den almindelige brugere.

MVH
Teddy