Thema Datum  Von Nutzer Rating
Antwort
Rot Word 2010 Bild in Fusszeile
 22.01.2014 12:27:11 Miakie
NotSolved

Ansicht des Beitrags:
Von:
Miakie		 Datum:
22.01.2014 12:27:11		 Views:
1400		 Rating:
     
Antwort:
  Ja
Thema:
Word 2010 Bild in Fusszeile

Sorry , CodeButton unter IE nicht gefunden. Ich hoffe der Text (Code)ist leserlich

Bilder landen immer in der Kopfzeile? 

 

Sub picsHeaderFooter()


     Dim oShape As Shape, oRange As Range, fRange As Range, fShape As Shape
     Dim PfadKopf As String
     PfadKopf = "C:\Users\xy\Desktop\KörnerVorlage\Kopfzeile.jpg"
     
     Dim PfadFuss As String
     PfadFuss = "C:\Users\xy\Desktop\KörnerVorlage\Fusszeile.jpg"
     '
     
     
     Set oRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
     Set oShape = ActiveDocument.Shapes.AddPicture(FileName:=PfadKopf, _
     LinkToFile:=False, SaveWithDocument:=True, Anchor:=oRange)
     

     oShape.Height = CentimetersToPoints(3.97)
     oShape.Width = CentimetersToPoints(21.19)
     oShape.Left = CentimetersToPoints(-2.8)
     oShape.Top = CentimetersToPoints(-1.2)
     
'Bis hierher stimmt Alles: Bild ist in der Kopfzeile.
'Das nächste Bild landet aber ebenfalls in der Kopfzeile über dem ersten Bild?



     Set fRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
     Set fShape = ActiveDocument.Shapes.AddPicture(FileName:=PfadFuss, _
     LinkToFile:=False, SaveWithDocument:=True, Anchor:=fRange)
     fShape.Height = CentimetersToPoints(2.95)
     fShape.Width = CentimetersToPoints(21.06)
     fShape.Left = CentimetersToPoints(-2.79)
     fShape.Top = CentimetersToPoints(-1.4)

End Sub

 

Wer kann mir da weiter helfen?

Danke

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word 2010 Bild in Fusszeile
 22.01.2014 12:27:11 Miakie
NotSolved