' Saberexcel - o Site das Macros MS excel VBA

Essa função retorna o largura da linha da célula ativa

Saberexcel - Função personalizada   (fp)

'=Largura_Linha()
'Função usada assim retorna a Largura(Altura) da linha da célula ativa

'=Largura_Linha(A1)
'Função referenciando a célula, retorna a largura da linha da célula(A1)

Function Largura_Linha(Optional Cell As Variant)
If IsMissing(Cell) Then
Largura_Linha = ActiveCell.RowHeight
Else
Largura_Linha = Cell.RowHeight
End If
End Function

 
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel