Ich benutze folgenden Code:(Word 2010)
Dim kShape As Shape, kRange As Range, fRange As Range, fShape As Shape
Dim PfadKopf As String
PfadKopf = "C:\Users\xy\Desktop\Vorlage\Kopfzeile.jpg"
Dim PfadFuss As String
PfadFuss = "C:\Users\xy\Desktop\Vorlage\Fusszeile.jpg"
'
Set kRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Set kShape = ActiveDocument.Shapes.AddPicture(FileName:=PfadKopf, _
LinkToFile:=False, SaveWithDocument:=True, Anchor:=kRange)
kShape.Height = CentimetersToPoints(3.97)
kShape.Width = CentimetersToPoints(21.19)
kShape.Left = CentimetersToPoints(-2.8)
kShape.Top = CentimetersToPoints(-1.2)
BIS HIERHER FUNTIONIERT ALLES GUT. BILD IST RICHTIG POSITIONIERT IN DER KOPFZEILE
MIT DEM NACHFOLGEND CODE WIRD DAS ANDERE BILD NICHT IN DIE FUSSZEILE SONDERN ÜBER DAS
ANDERE BILD IN DIE KOPFZEILE GELEGT:
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)
Kann mir jemand sagen was da nicht Stimmt?
Danke
|