Re: Zeilenbreite und Höhe
19.04.2003 16:26:34
Ramses
Hallo,das habe ich mal gefunden, ich weiss nicht mehr von wem es ist.
Vielleicht hilft es dir was:
Sub Setzen_Zeilenhoehe()
Dim hoehe As Single, aktuell As Single, Text As String, antwort As String
'aktuelle Zeilenhöhe ermitteln
aktuell = Selection.RowHeight / 29.5
'Text zur Ausgabe vorbereiten
Text = "Aktuelle Zeilenhöhe: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein:"
'InputBox anzeigen
antwort = InputBox(Text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
'antwort auswerten und neue Zeilenhöhe setzen
If antwort <> "" Then
hoehe = CSng(antwort)
Selection.RowHeight = hoehe * 29.5
End If
End Sub
Code eingefügt mit Syntaxhighlighter 1.16
Zu 2.
Ich weiss nicht wo du es gespeichert hast :-), aber im Normalfall ist das eine "*.bas" Datei.
Die kannst du im VB-Editor über
Datei - Importieren
in deine Tabelle einfügen.
Gruss Rainer