Supportnet / Forum / Tabellenkalkulation
font hoehe & breite
Frage
hi alle
wie kann man bei vb die fonthoehe und eventuelle breite eines einzelnen zeichens einer integervar uebergeben.
gruss nighty
Antwort 1 von nighty
hi alle
nagut die hoehe wuerde ausreichen BITTEEE.
gruss nighty
nagut die hoehe wuerde ausreichen BITTEEE.
gruss nighty
Antwort 2 von struppi
Hi nighty,
Die "VBA-Experten" haben wohl alle Urlaub?
SChau Dir mal im Objectkatalog die Eigenschaften des Font-Objectes an.
Mit markieren der Eigenschaften und F1 bekommst Du alle Infos die Du brauchst.
ZB über .size und .style
Als alter Excelfan müßtest Du doch auch die Möglichkeit kennen, das Ändern von Fonteigenschaften per Makro aufzuzeichnen und sich dann den Code mal anzuschaun...
Wenn es Dir um die Pixel Höhe mal Breite geht ließe sich eine Zelle mit autoFit auf den Buchstaben genau anpassen. Danach kann man die Zellenhöhe und Breite auslesen. Das entspräche dann etwa den Buchstabenmaßen...
Gruß struppi
Die "VBA-Experten" haben wohl alle Urlaub?
SChau Dir mal im Objectkatalog die Eigenschaften des Font-Objectes an.
Mit markieren der Eigenschaften und F1 bekommst Du alle Infos die Du brauchst.
ZB über .size und .style
Als alter Excelfan müßtest Du doch auch die Möglichkeit kennen, das Ändern von Fonteigenschaften per Makro aufzuzeichnen und sich dann den Code mal anzuschaun...
Wenn es Dir um die Pixel Höhe mal Breite geht ließe sich eine Zelle mit autoFit auf den Buchstaben genau anpassen. Danach kann man die Zellenhöhe und Breite auslesen. Das entspräche dann etwa den Buchstabenmaßen...
Gruß struppi
Antwort 3 von nighty
hi struppi
ich werds probieren.
dankeschoen
gruss nighty
ich werds probieren.
dankeschoen
gruss nighty
Antwort 4 von Wolle
Gruß Nighty,
habe nicht ganz verstanden, willst du die Font-Size eine bestimmten Zelle auslesen? Wenn ja probiere das mal:
Gruß Wolle!
habe nicht ganz verstanden, willst du die Font-Size eine bestimmten Zelle auslesen? Wenn ja probiere das mal:
Sub Font_Auslesen()
Dim i As Integer
i = ActiveSheet.Range("A1").Font.Size
MsgBox Str(i)
End Sub
Gruß Wolle!
Antwort 5 von nighty
hi wolle
du bist ein SCHATZ genau ins schwarze getroffen TATAAAA ich bin begeistert.
gruss nighty
du bist ein SCHATZ genau ins schwarze getroffen TATAAAA ich bin begeistert.
gruss nighty
Antwort 6 von nighty
hi wolle
ich sah gerade ,du bist ja NEU im SN,dann hoffe ich, werden wir uns bestimmt oefters in der exelecke sehen,dann wuensch ich dir noch viel spass im SN,ist ja eh schon ein TOLLER einstieg.
gruss nighty
ich sah gerade ,du bist ja NEU im SN,dann hoffe ich, werden wir uns bestimmt oefters in der exelecke sehen,dann wuensch ich dir noch viel spass im SN,ist ja eh schon ein TOLLER einstieg.
gruss nighty
Antwort 7 von Wolle
Hi Nighty,
klar, warum nicht? Wenn ich ne' vernünftige Antwort weiß und Zeit habe. Mir ist hier übrigens auch mal gut geholfen worden ( Hardware ). Da habe ich mich dann angemeldet.
Gruß Wolle!
klar, warum nicht? Wenn ich ne' vernünftige Antwort weiß und Zeit habe. Mir ist hier übrigens auch mal gut geholfen worden ( Hardware ). Da habe ich mich dann angemeldet.
Gruß Wolle!

