tentei utilizar esta fórmula pra alinhar os campos do flex mas não funcionou:

 

Sub FlexAjust()
    Dim n As Integer, i As Integer
    For i = 0 To MSFlexGrid.Cols - 1
        For n = 0 To MSFlexGrid.Rows - 1
            MSFlexGrid.ColWidth(i) = TextWidth(MSFlexGrid.TextMatrix(n, i)) + 240
        Next n
    Next i
End Sub

 

Alguém sabe onde está o erro?

se é tamanho das celulas e alinhamento do texto é assim

boa sorte

 

 With .MSFlexGrid

                    i = 1
                    Do While Not oRs.EOF
                       .Cols = i + 1
                       .Rows = 3
                       .ColWidth(i) = 1000
                       .ColAlignment(i) = flexAlignLeftCenter
                       .TextMatrix(0, 0) = oRs(0)
                       .TextMatrix(0, i) = oRs(1)
                       i = i + 1
                       oRs.MoveNext
                    Loop
            End With

A dica do amigo Fuintersoft1 não funcionou. Interessante, esta função estava funcionando bem, do nada simplesmente parou de funcionar.

 

Alguém tem mais alguma dica?