![]() If = wdNormalView Or = wdOutlineView Or = wdMasterView ThenĪ = wdPageViewĪ = wdSeekCurrentPageFooterĪ = InchesToPoints(1) Thanks in advance, appreciate every answer If there is no solution for this problem, is there a convenient way to insert images into the footer without having to resize them manually every time? I have no idea what this could be caused by, maybe it's just the implmentation of VB in the Mac-Office edition (MS Office 2008 for Mac, MS Office 2016 does not work either), I don't know. It all works fine under Windows, but it fails under Mac. It ended up the same way as it did when the variables names were equal). I even changed the variable names for Footer_Bild_Einfuegen() because I thought they might be merging both macros for any reason (No runtime error, just didn't work. I tried to change pretty much everything, but all ended up giving me runtime errors. Set oRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Rangeīoth images are inserted into the header of the document, the footer stays empty (but exists, contains text (so does the header)). Pfad = "C:\Users\path\to\footerIcon.jpeg" ![]() OShape.Width = CentimetersToPoints(21.55) LinkToFile:=False, SaveWithDocument:=True, Anchor:=oRange) Set oRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range Pfad = "C:\Users\path\to\headerIcon.jpeg" If ActiveDocument.ProtectionType wdNoProtection Then I opened it and tried to insert header and footer images by executing two macros: Sub Header_Bild_Einfuegen()
0 Comments
Leave a Reply. |