AW: Maßeinheit der SPaltenbreite?
26.07.2006 11:28:44
egres
Hi
Baue dir dies 2 Makros in deine persönliche Makroarbeitsmappe ein und verbinde sie mit je einem Button auf der Symbolleite, dann kannst du die Breie und die Höhe in cm ablesen
Die Angaben stimmen für HP Drucker, für andere habe ich es noch nicht probiert!
Gruss
Egres
Sub Zeilenhöhe()
Dim höhe As Single, aktuell As Single, text As String, antwort As String
'Nur für HP
'In " Extras/Optionen/Allgemein" muss Standartschriftart : "ARIAL"
' und Schriftgrad : "10"
' eingestellt sein
'aktuelle Zeilenhöhe ermitteln
aktuell = Selection.RowHeight / 29.1
'Text zur Angabe vorbereiten
text = "Die aktuelle Zeilenhöhe ist " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein (max13,85) :"
' InputBox anzeigen
antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
'Antwort auswerten und die neue Zeilenhöhe setzen
If antwort <> "" Then
höhe = CSng(antwort)
Selection.RowHeight = höhe * 29.1
End If
End Sub
Sub Spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
'Nur für HP
'In " Extras/Optionen/Allgemein" muss Standartschriftart : "ARIAL"
' und Schriftgrad : "10"
' eingestellt sein
'aktuelle Spaltenbreite ermitteln
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
'Text zur Angabe vorbereiten
text = "Die aktuelle Spaltenbreite ist " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Spaltenbreite für die aktuelle Zeile oder Markierung in cm ein (max 49.72) :"
' InputBox anzeigen
antwort = InputBox(text, "Neue Spaltenbreite festlegen", Format(aktuell, "###0.00"))
'Antwort auswerten und die neue Spaltenbreite setzen
If antwort <> "" Then
breite = CSng(antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub