Avatar billede roerboel Nybegynder
26. juli 2007 - 17:03

VBA Word - Indsættelse af billeder i sidefoden

Jeg har et word dokument, hvor side 1 sidefoden er forskellig fra de øvrige i sektionen. Jeg ønsker at indsætte samme billede både i side 1 sidefoden og i primær sidefoden.

Jeg har skrevet følgende kode, men får fejl anden gang doInsert kaldes - hjælp

<code>
Sub insertLogo()
    Dim oSec As Word.Section
   
    For Each oSec In ActiveDocument.Sections
        doInsert oSec.Footers(wdHeaderFooterPrimary)
       
        If (oSec.PageSetup.DifferentFirstPageHeaderFooter) Then
            doInsert oSec.Footers(wdHeaderFooterFirstPage)
        End If
    Next
End Sub

Private Sub doInsert(oFooter As Word.HeaderFooter)
    Dim oShape As Word.shape
   
    Set oShape = oFooter.Shapes.AddPicture("C:\logo.bmp", _
                LinkToFile:=False, SaveWithDocument:=True, _
                Anchor:=oFooter.Range)
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester