Hola gente. ¿Como puedo hacer que un Msflexgrid autoajuste el tamaño de todas las celdas para q qpa toda la informacion?. Porque ya probe con la propiedad WordWrap poniendolo en "true" pero no funciono porque la info de algunas celdas sale recortado. Gracias
pues podrías obtener el ancho y largo del texto con el objeto printer y luego usar las propiedades colwidth y rowHeight del MSFlexgrid
un ejemplo:
Dim x As String
Dim Largo As Long
Dim Ancho As Long
x = "bla bla bla bla bla bla bla bla bla bla!"
Ancho = Printer.TextWidth(x)
Largo = Printer.TextHeight(x)
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = x
MSFlexGrid1.ColWidth(0) = Ancho + 50
MSFlexGrid1.RowHeight(0) = Largo + 50