AW: Feststellen der Schriftbreite
16.02.2008 21:03:00
Daniel
Hi
im Prinzip würde mir nur folgender Weg einfallen:
- Text in eine leer Zelle reinschreiben Range("xxx").value = "Dein Text" (die ganze Spalte sollte auch leer sein)
- über Range("xxx").entirecolumn.Autofit die passende Spaltenbreite einstellen
- nun kannst du die Breite in Points abfragen mit: Range("xxx").entirecolumn.width
- diese Breite kannst du dann mit der Funktion PointsToScreenPixelsX() entsprechend umrechnen:
Breite = PointsToScreenPixelsX(range("xxx").entirecolumn.width)
wenn du es direkt rechnenlassen wolltest, müsstest du ja für für jeden Buchstaben die Breite in einer Tabelle hinterlegen, um dann diese Werte für deinen Text dann einzeln aufzuaddieren und ich wüsste nicht, daß diese Werte schon irgendwo hinterlegt sind.
aber ich lass die Frage mal offen, falls jemand eine elegantere Methode findet.
Gruß, Daniel