Hoe plaats ik via VBa-code het teken: "█"

[Interface]

Ik zou dit teken graag via excel in willen voegen. Dit lukt niet, heb al wat lopen zoeken of er niet een unicode(hex) converter is te vinden of een invoegtoepassing die dit voor mij doet.

Eigenlijk heb ik alles al geprobeerd. Chr(), Chrw$() alles zonder succes.

Wie kan mij helpen?!

Aanvulling:

Dit teken kun je maken met de toetsen: alt + 219

 

[Wigi]

dit teken kun je maken met de toetsen: alt + 219

Manueel lukt dat bij mij al niet, niet in Excel 2003 en niet in Word 2003.

Wigi

 

[AlexV]

Dat is ChrW(9608)


Klein loopje en je heb ze allemaal.

Sub GeefMeChrW()
C = 1
R = 1

For i = 1 To 10000
    Cells(C, R).Value = ChrW(i)
    R = R + 1
    If R > 15 Then
        C = C + 1
        R = 1
    End If
Next i

End Sub

Gr,
Alex,

 

[AlexV]

Manueel lukt dat bij mij al niet, niet in Excel 2003 en niet in Word 2003.

Wigi

Dit kun je doen door invoegen symbool.
Zorg dat de Unicode (hex) geselecteerd is en dan vrij ver naar onder.
Ofwel Character code 2588

Groetjes,
Alex,

 

[Interface]

wow..

Bedankt!!!!