[Solved] Macro to set row height to 0.

[MATT.B]

so im trying to set the row height to 0 on my aoo calc document. and im having a bit of issue with this code.
i'm sure that getcellrangebyname is not the correct way to identify what row and i think it may be the cause for my issue. row 11 changes to .08 but rows 9 and rows 11 do not change at all but also dont produce an error.
row 9 and 10 must stay or i will have to rewright 6 pages of formulas and a bunch of macro code but because i added row 50 i need to shrink 2 rows to 0 and one to .08 to keep the pages printing correctly.

Code: Select all

oDoc = ThisComponent
oView = oDoc.getCurrentController()
oframe = oview.Frame
osheet = ThisComponent.getSheets().getByIndex(0)
	oB2 = oSheet.getCellrangeByName("A9")
	oRow = oB2.getRows()
	oRow.Height = 0.00 * 25.4 * 100
	oB2 = oSheet.getCellrangeByName("A10")
	oRow = oB2.getRows()
	oRow.Height = 0.00
	oB2 = oSheet.getCellrangeByName("A11")
	oRow = oB2.getRows()
	oRow.Height = 0.08 * 25.4 * 100

[Lupp]

First of all: What do you expect

Code: Select all

...= 0.00 * 25.4 * 100

to return. Any number multiplied with 0 gives 0.

Then: What do we expect a row height set to 0 to bring about? In fact it should not change the property .Height, but set the property .IsVisible false. So does LibO, and so should AOO do according to "tradition". My AOO V4.1.5, on the other hand, is not handling it this way, but simply ignores the assignment. Therefore use instead:

Code: Select all

oB2.Rows.IsVisible = False

And:

I'm sure that getcellrangebyname is not the correct way to identify what row and i think it may be the cause for my issue.

No.

Code: Select all

oSheet.getCellRangeByName("A9").Rows

actually identifies correctly the row containing cell A9.

Generally I would dissuade from any attempt to adjust printing by complicated manipulations of row heights. You cannot even know if the next version also (?) will accept the "subliminal" settings you try . Use the page styles instead.

(By the way: English uses uppercase letters in some places.)

[FJCC]

Try using the IsVisble property of the rows to hide them.

Code: Select all

oSheets = ThisComponent.getSheets()
oSheet1 = oSheets.getByName("Sheet1")
oRows = oSheet1.getRows()
oRow = oRows.getByIndex(8)
oRow.IsVisible = FALSE
oRow = oRows.getByIndex(9)
oRow.IsVisible = FALSE
oRow = oRows.getByIndex(10)
oRow.Height = 0.08 * 25.4 * 100

[MATT.B]

First of all: What do you expect

Code: Select all

...= 0.00 * 25.4 * 100

to return. Any number multiplied with 0 gives 0.

its was actually a test to see if it mattered originally it was just 0 but was changed just in case it required that formatting to work

[MATT.B]

Generally I would dissuade from any attempt to adjust printing by complicated manipulations of row heights. You cannot even know if the next version also (?) will accept the "subliminal" settings you try . Use the page styles instead.
(By the way: English uses uppercase letters in some places.)

its more than just printing i also have about 20 pages of macros that operate around individual cells and formulas all over the sheet with 6 sheets and i really don't want to have to edit every line of code. its basically a mini program that operates inside AOO Calc that is used on 4 machines. its what we use for making repair estimates for our customers and we received feed back that our total price was hard to find so we moved it.the macro i'm working on modifies already saved files to meat the new format of the page it will most likely be used for about a week and then deleted from the code

but thank you for your help that worked nicely.

[Lupp]

I also have about 20 pages of macros that operate around individual cells and formulas all over the sheet with 6 sheets and I really don't want to have to edit every line of code. It's basically a mini program that operates inside AOO Calc that is used on 4 machines.

Just a guess(?): Bad design.