Keskustelu: Ohjelmointikysymykset: VBA: MSFlexGrid ongelma

Eli tämmösiä ongelmia tuli eteen:
Miten noihin ylemmän rivin harmaihin lootiin sais tekstiä
ja voiko tekstin suunnata alaspäin?

Edit:Niihin harmaisiin lootiin onnistuin lisään (kiitos MSDN)tekstin laittamalla Format stringiksi näin esim. <Solu1 |<Solu2 |<Solu3 |<Solu4
ja toiminta(ainakin luulisin) on että solua vaihdetaan "|" merkillä ja "< >" merkit kertovat tasauksen,

Meinasin juuri kirjoittaa tuosta FormatString:stä, mutta hyvä jos löysit sen itsekkin.

Toinen mahdollisuus on käyttää TextMatrix:a. Pieni esimerkki käyttäen molempia mahdollisuuksia:

Me.MSHFlexGrid1.FormatString = "|>Hep|^Hep|<Hoo;|Hip|Hip|Hei"
Me.MSHFlexGrid1.TextMatrix(0, 0) = "X" 'vasen yläkulma
Me.MSHFlexGrid1.TextMatrix(1, 1) = "1"
Me.MSHFlexGrid1.TextMatrix(2, 2) = "2"
Me.MSHFlexGrid1.TextMatrix(3, 3) = "3"

Satutko tietää onko mahdollista suunnata tekstiä alaspäin?
Ja tämmönenki ongelma tuli et jos syöttää soluun liian pitkän tekstin niin tekstin loppuosa menee piiloon, miten korjata?
PS. kokeilin tota TextMatrixia ku haulla jotain löyty mut mä tampio laitoin ..

MSFlexGrid1.TextMatrix(1, 1) = "vasen yläkulma"

:)

Tiettävästi tekstiä ei saa pystyyn. Ei ainakaan ilman mitään temppuilua. Mahdollisesti WordWrap:lla tyyliin

E    T    K
k    o    o
a    k    l
     a    m
          a
          s

ColWidth määrittelee sarakkeen pituuden.

Me.MSHFlexGrid1.ColWidth(1) = Me.TextWidth("Esimerkkisarake") + 220 'Sarakkeen pituus. 220 antaa tyhjää reunoihin
Me.MSHFlexGrid1.ColAlignmentHeader(1) = flexAlignCenterCenter 'Keskitetään otsakkeen teksti
Me.MSHFlexGrid1.ColAlignment(1) = flexAlignCenterCenter 'Keskitetään itse sarakkeen tekstit

Edit: Huomioida se, että kun laskee tuon sanan pituuden tuolla TextWidth:llä, niin Formilla (tai mistä sen TextWidth:n sitten laskeekin) ja Gridissä pitää olla sama fontti saman kokoisena. Muuten menee reisille.

Kiitoksia avusta, alkaa jo ohjelma hahmottua