https://bugs.documentfoundation.org/show_bug.cgi?id=142679
--- Comment #5 from Michael <[email protected]> --- (In reply to Heiko Tietze from comment #3) > I assume you do Insert > Image and Format > Arrange > To Background to make > it appear behind the editable cells (with access later via the Navigator). > Whether the document background is the automatic default or any user defined > color does not affect the transparency (or rather opacity), but the goal is > to show the background anyway. > > I would prefer a different workflow with Format > Page Style and a > background image. This image is currently only shown in the preview but I > could imagine to have it also in edit mode - users who prefer the current > behavior could use a background color for cells. Either changing the page > style or an option to not print the background could be handy for printing. > > Using Tools - LibreOffice - Application Colors - Document Background has the > disadvantage to be also effective in other modules like Writer. This is a chunk of our macro that loads the image. ' Get graphic using Dispatcher; code from macro recorder ' Direct URL retrieval methods do not fail gracefully args1(0).Name = "FileName" args1(0).Value = imgURL args1(1).Name = "FilterName" args1(1).Value = "<All formats>" args1(2).Name = "AsLink" args1(2).Value = false dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1()) ' Get image as object for manipulation imgCount = DrawPage.Count flagFound = False ' Search for proper image For x = 0 To imgCount-1 objImage = DrawPage.getByIndex(x) If objImage.Name = "Image 1" Then ' Image found objSize = objImage.getSize newWidth = (objSize.width)*imgScale newHeight = (objSize.height)*imgScale ' Set new dimensions objSize.width = newWidth objSize.height = newHeight objImage.setsize(objSize) ' Image enhancements If EnhanceFlag = "Y" Then If Brightness <> 0 Then objImage.AdjustLuminance = Brightness If Contrast <> 0 Then objImage.AdjustContrast = Contrast If Gamma <> 0 Then objImage.Gamma = Gamma If ColorMode = "C" Then objImage.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD End If If ColorMode = "G" Then objImage.GraphicColorMode = com.sun.star.drawing.ColorMode.GREYS End If End If ' Get crop properties and validate Cell = Doc.Sheets.GetByName("Setup").getCellRangeByName("Crop") CropFlag = Cell.String CropFlag = UCase(Left(CropFlag, 1)) If (CropFlag <> "Y") and (CropFlag <> "N") Then GoToNamedCell("Setup", "Crop", 1, 1) MsgBox "Enter Yes or No in the Crop Image Cell to indicate" + CHR$(10) +_ "whether you want the image cropped." Exit sub End If If (CropFlag = "Y") Then objImage = Crop_Image(ObjImage, imgScale) End If ' Image found - background LayerID = 1, foreground LayerID = 0 objImage.LayerID = 1 RotateImage flagFound = True Exit For End If Next x -- You are receiving this mail because: You are the assignee for the bug.
