ola pessoal?

 

Tem como deixar com que a altura das linhas do msflex grid se auto aumentem ou diminuem de acordo com a quanitdade de texto que é passada para ela?

Eu uso essa rotina:

 

Sub Grid_Largura()
    Dim Max_Wid As Single
    Dim Wid As Single
    Dim Max_Row As Integer
    Dim R As Integer
    Dim coluna As Integer
    Dim espaco As Double
    Dim Largura As Double
  
  
    'Ajusta a altura das linhas do grid para o tamanho do texto contido nas celulas
    Dim LARGURAPADRAO As Double
    LARGURAPADRAO = fgdOcorrencias.ColWidth(3)
    Max_Row = fgdOcorrencias.Rows - 1
    For R = 0 To Max_Row
        If fgdOcorrencias.TextMatrix(R, 3) <> "" Then
            Wid = TextWidth(fgdOcorrencias.TextMatrix(R, 3))
            fgdOcorrencias.ColWidth(3) = Wid + 400
           
            'calcula a largura
            Largura = fgdOcorrencias.ColWidth(3)
            'divite a largura pelo que era (para ter quantas linhas seriam necessarias)
            Largura = Largura / LARGURAPADRAO
            'pega o resultado e multiplica por 195, que é o tamanho da altura da fonte
            If Int(Largura) >= 1 Then
                espaco = Int(Largura) * 120
            Else
                espaco = 240
            End If
            Largura = Largura * 195
            Largura = Largura + espaco
            fgdOcorrencias.RowHeight(R) = Largura
        End If
    Next R
    fgdOcorrencias.ColWidth(3) = LARGURAPADRAO
    fgdOcorrencias.ColWordWrapOption(3) = 3
End Sub