[Libreoffice-ux-advise] [Bug 142679] When entering data, can the cell background be transparent so you can see the image underneath?

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=142679

--- Comment #5 from Michael <mapurves at hotmail.com> ---
(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 on the CC list for the bug.