Bug 114372 - Add zoom/unzoom mouse scroll on "calc sheet embedded object" in writer
Summary: Add zoom/unzoom mouse scroll on "calc sheet embedded object" in writer
Status: NEW
Alias: None
Product: LibreOffice
Classification: Unclassified
Component: Writer (show other bugs)
Version:
(earliest affected)
5.3.2.2 release
Hardware: All All
: medium enhancement
Assignee: Not Assigned
URL:
Whiteboard:
Keywords:
Depends on:
Blocks: Zoom-Issues Calc-Embedded
  Show dependency treegraph
 
Reported: 2017-12-09 21:48 UTC by marcduhil
Modified: 2018-10-03 20:53 UTC (History)
1 user (show)

See Also:
Crash report or crash signature:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description marcduhil 2017-12-09 21:48:49 UTC
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
Comment 1 Buovjaga 2017-12-18 16:46:06 UTC
Yep, seems useful.