excel spread sheet 3

[142846]

hello

How to increase (for example 10 percent) all row height in excel? or for example to increase 8 unit for each row height. I have a lot of rows with different height.

appreciate for any respond.

 

[IRstuff]

No easy way; you'd probably need to write a macro to do that

TTFN (ta ta for now)
I can do absolutely anything. I'm an expert!

https://www.youtube.com/watch?v=BKorP55Aqvg

faq731-376 forum1529 Entire Forum list

http://www.eng-tips.com/forumlist.cfm

 

[dik]

In libreoffice spreadsheet, you can increase the row height by selecting the rows and stipulating the height. You might run openoffice, do the mod and see if it fits back in excel.

Rather than think climate change and the corona virus as science, think of it as the wrath of God. Feel any better?

-Dik

 

[142846]

thanks a lot IRstuff for quick respond.
Actually my question return to excel row height autofit. In my opinion excel autofit default is very compact and there isn't any free space between rows.in the other hand when I increase or decrease font size the row height automatically increase or decrease. actually I want decreasing font size without decreasing row height. Is there a way to get what I want?

 

[142846]

thanks a lot dik

i don't have libreoffice spreadsheet. I have excel.

 

[IRstuff]

If you want it automatic, then VBA is the only way, otherwise, you'd do it manually, one row at a time

TTFN (ta ta for now)
I can do absolutely anything. I'm an expert!

https://www.youtube.com/watch?v=BKorP55Aqvg

faq731-376 forum1529 Entire Forum list

http://www.eng-tips.com/forumlist.cfm

 

[SkipVought]

Sub ChangeRowHeight(Optional PctChg As Integer = 10, Optional IncDec As Boolean = True)
'increase/decrease row height by PctChg%  
'default to increase by 10%  
    With ActiveSheet.UsedRange.EntireRow
        If IncDec Then
            .RowHeight = .RowHeight * (1 + PctChg / 100)
        Else
            .RowHeight = .RowHeight * (1 - PctChg / 100)
        End If
    End With
End Sub

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[dik]

libreoffice is free... If it weren't for Win Bricscad... I'd be using Linux. Libreoffice also runs in Linux...

Rather than think climate change and the corona virus as science, think of it as the wrath of God. Feel any better?

-Dik

 

[dik]

Just checking in libreoffice calc you can set the padding around values, top and bottom and sides so that it always provides a space of 0.7mm or whatever...

Rather than think climate change and the corona virus as science, think of it as the wrath of God. Feel any better?

-Dik

 

[SkipVought]

The above procedure only works if ALL rows have identical RowHeight value.

here's a version for varying row heights...

Sub ChangeRowHeight2(Optional PctChg As Integer = 10, Optional IncDec As Boolean = True)
'for rows with varying RowHeight
'increase/decrease row height by PctChg%  
'default to increase by 10%  
    Dim rRow As Range
    With ActiveSheet.UsedRange
        For Each rRow In Range(.Cells(1, 1), .Cells(.Rows.Count, 1))
            With rRow.EntireRow
                If IncDec Then
                    .RowHeight = .RowHeight * (1 + PctChg / 100)
                Else
                    .RowHeight = .RowHeight * (1 - PctChg / 100)
                End If
            End With
        Next
    End With
End Sub

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[ATSE]

Skip, you're an animal (read as compliment).
I used to think I was an Excel expert until I joined this forum. Now I just read posts and feel a deep sense of humility.

 

[SkipVought]

I have been tutored for the past 2 decades at Tek-Tips.com, Eng-Tips sister site for all things computer, especially for me: Excel, Access, VBA, SQL, as I was a data analyst/programmer before I retired.

Thanx for the compliment. Grrrrrrrr

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]