[Libreoffice-bugs] [Bug 114372] New: Add zoom/unzoom mouse scroll on " calc sheet embedded object" in writer

bugzilla-daemon at bugs.documentfoundation.org bugzilla-daemon at bugs.documentfoundation.org
Sat Dec 9 21:48:49 UTC 2017


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

            Bug ID: 114372
           Summary: Add zoom/unzoom mouse scroll on "calc sheet embedded
                    object" in writer
           Product: LibreOffice
           Version: 5.3.2.2 release
          Hardware: All
                OS: All
            Status: UNCONFIRMED
          Severity: enhancement
          Priority: medium
         Component: Writer
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: marcduhil at hotmail.com

Description:
It would be very nice if it was possible to zoom and unzoom on an calc sheet
embedded object in writer. I did it with a macro/button but it is not very
friendly user.


'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub ZoomPlusMoins

monDoc = ThisComponent
monOLE = monDoc.EmbeddedObjects.getByName("Objet6")
GLOBALHauteur2 = monOLE.Height

oFormu = monDoc.DrawPage.Forms.getByName("Formulaire")
oCompteur = oFormu.getByName("Compteur 1")

sousObjet = monOLE.EmbeddedObject.Component.CurrentController
        if  IsNull(sousObjet) then
                warning = ("Il faut double cliquer dans le cadre avant de
zoomer")
                r = msgbox (warning, 16,"Information")
        else
                if IsNull(GLOBALoSpinZoom) then
                        GLOBALoSpinZoom = 0
                else
                        oSpin = oCompteur.SpinValue
                        GLOBALmonZoom = sousObjet.ZoomValue
                        if oSpin > GLOBALoSpinZoom then 
                                GLOBALmonZoom = GLOBALmonZoom + 3
                        else
                                GLOBALmonZoom = GLOBALmonZoom - 3

                        end if
                        sousObjet.ZoomValue = GLOBALmonZoom
                        GLOBALoSpinZoom = oSpin

                end if


        end if
End Sub

Steps to Reproduce:
1.Create a sheet in calc
2.Copy and paste it in writer
3.From writer, double clic on the embedded objet, then Ctrl+Mouse Scroll:
nothing happens

Actual Results:  
Not possible to zoom / unzoom with mouse scroll

Expected Results:
Possible to zoom with mouse scroll in a "sheet calc embedded object" from
writer


Reproducible: Always


User Profile Reset: No



Additional Info:


User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:57.0) Gecko/20100101
Firefox/57.0

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20171209/34a89193/attachment-0001.html>


More information about the Libreoffice-bugs mailing list