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.
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")
if IsNull(GLOBALoSpinZoom) then
GLOBALoSpinZoom = 0
oSpin = oCompteur.SpinValue
GLOBALmonZoom = sousObjet.ZoomValue
if oSpin > GLOBALoSpinZoom then
GLOBALmonZoom = GLOBALmonZoom + 3
GLOBALmonZoom = GLOBALmonZoom - 3
sousObjet.ZoomValue = GLOBALmonZoom
GLOBALoSpinZoom = oSpin
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
Not possible to zoom / unzoom with mouse scroll
Possible to zoom with mouse scroll in a "sheet calc embedded object" from writer
User Profile Reset: No
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0
Yep, seems useful.
Created attachment 182137 [details]
Screenshot showing the issue
I just realized in 7.3.3 (Linux) that the zoom bar at the lower right vanishes when opening an embedded calc object in a (newly created) writer document.
How can such terrible user interface design not be fixed for such a long time?