Hallo,
ich habe eine fertig programmierte Excel Datei mit Makros (wurde nicht von mir erstellt). Über einen Button kann man sich eine Worddokument erzeugen lassen. Nun möchte ich in der generierten Word-Datei in der Kopfzeile anstatt eines Textes ein Logo anzeigen lassen.
Ich habe es geschafft das Logo über .Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture ("C:Userslogo.png") zu laden, aber leider finde ich keine Möglichkeit zur Positionierung. Es wäre super, wenn ich die absolute Position (Horizontal: "X cm rechts Seite, Vertikal: "Y cm unterhalb Seite") wie in Word definieren könnte.
Dim strLogo As String
...
strLogo = "C:\Users\logo.png"
With .Sections(1)
'Kopfzeile auf erster Seite einfügen
.Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture Filename:=strLogo, _
LinkToFile:=False, SaveWithDocument:=True
Irgendwie muss ich jetzt das InlineShape in ein Shape umwandeln, aber ich weiß leider nicht wie?!
Kann mir jmd. helfen?
ich habe eine fertig programmierte Excel Datei mit Makros (wurde nicht von mir erstellt). Über einen Button kann man sich eine Worddokument erzeugen lassen. Nun möchte ich in der generierten Word-Datei in der Kopfzeile anstatt eines Textes ein Logo anzeigen lassen.
Ich habe es geschafft das Logo über .Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture ("C:Userslogo.png") zu laden, aber leider finde ich keine Möglichkeit zur Positionierung. Es wäre super, wenn ich die absolute Position (Horizontal: "X cm rechts Seite, Vertikal: "Y cm unterhalb Seite") wie in Word definieren könnte.
Dim strLogo As String
...
strLogo = "C:\Users\logo.png"
With .Sections(1)
'Kopfzeile auf erster Seite einfügen
.Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture Filename:=strLogo, _
LinkToFile:=False, SaveWithDocument:=True
Irgendwie muss ich jetzt das InlineShape in ein Shape umwandeln, aber ich weiß leider nicht wie?!
Kann mir jmd. helfen?