Microsoft Office Tutorials and References
In Depth Information
4.3 Profi-Tipps für Tabellen und Register
4.3 Profi-Tipps für Tabellen und
Register
Die Makros finden Sie auf der Buch-CD
unter Zeilenhoehe.xlsm.
CD-ROM
Sub ZHöhe()
Dim zh As Single, zhjetzt As Single
Dim ipText As String, zhneu As String
zhjetzt = Selection.RowHeight / 29.5
ipText = “Aktuelle Zeilenhöhe: “ _
& Format(zhjetzt, “###0.00 cm“) _
& Chr(13) _
& “Zeilenhöhe in Zentimeter:“
zhneu = InputBox(ipText, “Neue Zeilenhöhe
festlegen“)
If zhneu = ““ Then Exit Sub
zh = CSng(zhneu)
Selection.RowHeight = zh * 29.5
End Sub
4.3.1 Zeilenhöhe und Spaltenbreite in
Zentimetern
Das Excel-spezifische Maßsystem stellt
Formulargestalter oft vor unlösbare Aufgaben: Die Höhe der
Zeilen wird im typografischen Maß »Punkt« gemessen, die
Breite dagegen in Anzahl Zeichen pro Zelle.
In einer Tabelle mit der Standardschriftgröße 10 misst
eine Zelle 0,42 cm, denn zur Zeilenhöhe (0,353*10=3,53)
wird noch der Abstand zur nächsten Zeile (Durchschuss)
gerechnet, und der beträgt 20 % der Zeilenhöhe, folglich:
0,353 mm *12 = 4,2 mm
Um die Zeilenhöhe in Zentimeter umzurechnen,
verwenden Sie diesen Faktor:
Listing 4.1 Makro zur Ermittlung und Angabe der Zeilenhöhe
Zeilenhöhe in cm = Zeilenhöhe in punkt / 29,5
Sub SBreite()
Dim SB As Single, SBJetzt As Single
Dim ipText As String, SBNeu As String
SBJetzt = (Selection.ColumnWidth + 0.71) / 5.1425
ipText = “Aktuelle Spaltenbreite: “ _
& Format(SBJetzt, “###0.00 cm“) & Chr(13) _
& “Spaltenbreite in Zentimeter:“
SBNeu = InputBox(ipText, “Neue Spaltenbreite
festlegen“)
If SBNeu = ““ Then Exit Sub
SB = CSng(SBNeu)
Selection.ColumnWidth = -0.71 + 5.1425 * SB
End Sub
Die Standardspaltenbreite beträgt 10,71 Zeichen oder
80 Pixel pro Zelle. Dieses Maß fist von der Schriftart und
Schriftgröße abhängig, die für die Zelle von der
Formatvorlage geliefert oder vom Anwender gewählt wurde.
Mit der Standardschrift Calibri in der Größe 11 Punkt
passen ca. elf Zeichen mit unterschiedlicher Breite in
eine Zelle.
Um die Spaltenbreite in cm umzurechnen, verwenden
Sie diesen Faktor:
Spaltenhöhe in cm = (Spaltenhöhe in Anzahl Zeichen +
0.71) / 5,1425
Listing 4.2 Makro zur Ermittlung und Angabe der Spaltenbreite
Für die Umrechnung können Sie Makros verwenden, die
den Zentimeterwert in einer Eingabemeldung anfordern
und die Zeilen oder Spalten entsprechend umrechnen.
 
Search JabSto ::




Custom Search