AW: Breiter einer Spalte von 13.00 auf 13.05
02.03.2006 16:42:36
13.00
Hi Timonski
mit den Makros kannst Du die Breite und Höhe in mm einstellen!
Sub Zeilenhöhe()
Dim höhe As Single, aktuell As Single, text As String, antwort As String
'Nur für HP LaserJet
'In " Extras/Optionen/Allgemein" muss Standartschriftart : "ARIAL"
' und Schriftgrad : "10"
' eingestellt sein
'aktuelle Zeilenhöhe ermitteln
aktuell = Selection.RowHeight / 29.5
'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 (max 13.86 mm/Zelle)
If antwort <> "" Then
höhe = CSng(antwort)
Selection.RowHeight = höhe * 29.5
End If
End Sub
Sub Spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
'Nur für HP LaserJet
'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 (max 49.72 mm/Zelle)
If antwort <> "" Then
breite = CSng(antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub
Gruss Serge