La propiedad wordwrap establecida a True te permite mostrar texto en varias líneas en una sola celda para lo cual debes darle a la celda la altura necesaria para que pueda mostrar todo su contenido.
Para eso puedes utilzar un procedimiento que te ajuste las celdas del MSFlexGrid al texto que contengan:
'***********************************************************************************
Para ajustar alto:
'***********************************************************************************
'***Ajusta el alto de las celdas de un MSFlexGrid al texto que contiene
Private Sub AjustarAlto()
Dim alto As Double
With MiFlexGrid '***Nombre del MSFlexGrid
For i = 0 To .Rows - 1
alto = 0
For j = 0 To .Cols - 1
If TextHeight(.TextMatrix(i, j)) > alto Then
alto = TextHeight(.TextMatrix(i, j))
End If
Next j
.RowHeight(i) = alto + 100
Next i
End With
End Sub
'***********************************************************************************
Para ajustar ancho:
'***********************************************************************************
'***Ajusta el ancho de las celdas de un MSFlexGrid al texto que contiene
Private Sub AjustarAncho()
Dim ancho As Double
With MiFlexGrid '***Nombre del MSFlexGrid
For i = 0 To .Cols - 1
ancho = 0
For j = 0 To .Rows - 1
If TextWidth(.TextMatrix(j, i)) > ancho Then
ancho = TextWidth(.TextMatrix(j, i))
End If
Next j
.ColWidth(i) = ancho + 100
Next i
End With
End Sub
Espero te sea de utilidad...
Saludos!!
