Atualizar macro para expandir a altura de cada linha por X pixels

Question

Isso funciona bem para definir todas as linhas em 25 pixels.

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = 25
End Sub

Mas quero aproveitar a altura da linha existente e adicionar 10 a ela.

Então, algo como esse pseudocódigo:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows(x).RowHeight + 10
End Sub

Isso é possível? Tentando descobrir a sintaxe disso, mas sem sorte.

    

Answer 1

Infelizmente, não há uma maneira simples de fazer isso. Assim como no próprio Excel, não há como selecionar várias linhas e arrastar / definir a altura da linha para um incremento das alturas individuais.

A solução mais simples é percorrer todas as linhas:

Option Explicit
'v0.1.0
Sub sbChangeRowHeightMulti()
  Application.ScreenUpdating = False
    Dim rowRow As Range
    For Each rowRow In Rows("3:1000")
      rowRow.RowHeight = rowRow.RowHeight + 10
    Next rowRow
  Application.ScreenUpdating = True
End Sub

    

Answer 2

Tente isto:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows("3:1000").RowHeight + 10
End Sub