AW: Maße für das Zeichnen von Linien etc.
02.06.2006 07:36:42
Linien
Hallo Thomas,
Umrechnungsfaktor ist im Code.
Sub Zeilenhoehe()
Dim sHoehe As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = Selection.RowHeight / 29.5
strText = "Aktuelle Zeilenhöhe: " & Format(sAktuell, "###0,00 cm") _
& Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die " & _
"aktuelle Zeile oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", _
Format(sAktuell, "###0,00"))
If strAntwort <> "" Then
sHoehe = CSng(strAntwort)
Selection.RowHeight = sHoehe * 29.5
End If
End Sub
Sub Spaltenbreite()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
strText = "Aktuelle Spaltenbreite: " & _
Format(sAktuell, "###0,00 cm") & Chr(13) _
& "Geben Sie die gewünschte Spaltenbreite für die " & _
"aktuelle Spalte oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0,00"))
If strAntwort <> "" Then
sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
End If
End Sub
@ Heinz.
Mann, Mann...watt hört ma denn da für Sachen ? ;-))
Bezgl. Upload. Sonderzeichen im Dateinamen oder Verzeichnisstruktur zu lang (Datei im 6. Ordner) ?
Gruss Harald