Sidehoved - Visual Basic

Fandt selv løsningen.

Har ændret det så der nu står

With ActiveDocument.Sections(1)
'.Headers(wdHeaderFooterFirstPage).Shapes.AddPicture LOGODIR & "flex-top.jpg", False, True, 100
.Footers(wdHeaderFooterFirstPage).Shapes.AddPicture LOGODIR & "flex-bund.jpg", False, True, 60, -10
End With

Vil dog gerne stadig have ne hånd med at ændre størrelse i % på billederne

Nedenfor finder du en ændret version af din kode plus en funktion, der ændrer størrelse på en shape til den procent, du sætter ind i koden. Ved at lave en separat funktion kan du bruge den i andre sammenhænge også.

------------------
Ændret version af din kode:

    With ActiveDocument.Sections(1)
        Set oShape = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture(LOGODIR & "flex-top.jpg", False, True, 100)
        'Tilret størrelse til 50 % - udskift procent med ønsket værdi nedenfor
        ResizeShape oWhichShape:=oShape, nPercentage:=50 'kør funktion
       
        Set oShape = .Footers(wdHeaderFooterFirstPage).Shapes.AddPicture(LOGODIR & "flex-bund.jpg", False, True, 60, -10)
        'Tilret størrelse til 50 % - udskift procent med ønsket værdi nedenfor
        ResizeShape oWhichShape:=oShape, nPercentage:=50.2 'kør funktion
    End With
   
    'Ryd op
    Set oShape = Nothing
   
------------------
Funktion, der ændrer shape-størrelse

Function ResizeShape(oWhichShape As Shape, nPercentage As Long)
   
    With oWhichShape
        .LockAspectRatio = msoTrue
        .Height = .Height / 100 * nPercentage
    End With

End Function

Hej Lene.

Du må gerne smide et svar, sorry der gik noget tid inden, jeg fik vendt tilbage hertil.  :)

Tak for hjælpen.

Velbekom.