|
Hallo Community,
ich hoffe es kann mir hier jemand helfen. Und zwar geht es um folgendes. Ich Zeichne über ein Schleife drei Rechtecke welche am Ende zu einem großen
Rechteck ("LKW") zusammengefügt werden. Für das einmalige Durchlaufen der Schleife tut es das auch bei zweimal funktioniert es aber schon nciht mehr. Ich habe die Vermutung, dass es etwas mit der Benennung der Rechtecke zutun hat. Komme jedoch nicht weiter. Wäre super wenn mir hier jemand helfen könnte.
Private Sub DrawLKW()
Dim L As Single, B As Single, C As Single, D As Single, Anzahl As Single
Anzahl = InputBox("ANZAHL LKW?" & Chr(13) & "Wieviele LKW sollen gezeichnet werden?")
Oben = 250
B = 240
C = 745
D = 270
L = 254
For x = 1 To Anzahl
With ActiveSheet.Shapes
.AddShape(msoShapeRectangle, 400, Oben, B, L).Name = "Vorne"
.AddShape(msoShapeRectangle, 400 + B, Oben, C, L).Name = "Mitte"
.AddShape(msoShapeRectangle, 400 + B + C, Oben, D, L).Name = "Hinten"
With .Range(Array("Vorne", "Mitte", "Hinten")).Group
End With
End With
Oben = Oben + L + 20
Next
End Sub
Danke schon einmal für die Unterstützung.
Grüße
|