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