https://bugs.documentfoundation.org/show_bug.cgi?id=89245
--- Comment #22 from [email protected] --- Here is my workaround: sub kopf_setzen oGetGal = CreateUnoService("com.sun.star.gallery.GalleryThemeProvider") oGalSchnitte = oGetGal.getByName("Schnitte") oDoc = ThisComponent oStyleFamilies = ThisComponent.getStyleFamilies() oPageStyles = oStyleFamilies.getByName("PageStyles") oPageStylesDef = oPageStyles.getByName("Default") 'Werte für das Logo ermitteln For i = 0 To oGalSchnitte.Count - 1 itemAktuell = oGalSchnitte.getByIndex(i) itemTitel = itemAktuell.Title if itemTitel = "logo" then SchnittURL = itemAktuell.URL end if next i sSchnittfilePath=SchnittURL SchnittURL = ConvertToUrl(sSchnittfilePath) oPageStylesDef.HeaderBackColor = -1 oPageStylesDef.HeaderBackgroundColor = -1 oPageStylesDef.HeaderBackGraphicFilter = "GIF - Graphics Interchange Format" oPageStylesDef.HeaderBackGraphicURL = SchnittURL oPageStylesDef.HeaderBackGraphicLocation = 3 oPageStylesDef.HeaderBackTransparent = True end sub The other pictures of my template are also stored in the gallery. It is also possible to store the grafic in the directory of template. You can set this macro as event. -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
