Benennung von "Rechtecken" mittels VBA
24.03.2009 14:59:43
"Rechtecken"
ich hoffe ihr könnt mir bei meinem folgenden Problem weiterhelfen:
Ich habe bereits eine Datei, bei der der Nutzer durch Eingabe von einigen Parametern (Länge, Breite Drehungswinkel) ein Rechteck erhält. Das ganze sieht momentan noch wie folgt aus:
Sub Makro1()
start:
Dim a, b, c, d, weiter
a = InputBox("Geben Sie die Länge in cm ein", "Länge")
b = InputBox("Geben Sie die Breite in cm ein", "Breite")
c = InputBox("Geben Sie die Drehung (Schräge) in Grad ein", "Drehung")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 80, 80, 80#, 40). _
Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = a
Selection.ShapeRange.Width = b
Selection.ShapeRange.Rotation = c
Application.ScreenUpdating = True
weiter = MsgBox("Wollen Sie weiterzeichnen?", vbYesNo, "Weiter?")
If weiter = vbYes Then
GoTo start
Else:
Exit Sub
End If
End Sub
Nun möchte ich allerdings gern, das der Nutzer ebenfalls (nach Eingabe der verschiedenen Daten) das Rechteck auch bezeichnen kann (evtl. sogar mit den jeweiligen Abmaßen, welcher dem Rechteck zugeordnet sind).
Leider stehe ich total auf dem Schlauch und finde dafür keine Lösung.
Könnt ihr mir hier weiterhelfen?
Vielen, vielen Dank schon mal vorab!
Anzeige