AW: zufällige anzahl objekte einfügen
24.03.2009 18:48:49
fcs
Hallo Hans,
hier ein kleines Beispiel
Gruß
Franz
Option Explicit
Private Anzahl As Long
Sub SchaefchenZaehlen()
Dim wks As Worksheet, Zelle As Range, FigurTyp As Long, Figur As Integer
Dim Zaehler As Long, Links As Double, Oben As Double
Const AnzMin As Long = 10
Const AnzMax As Long = 30
Const AnzFiguren As Long = 6
Const Groesse As Double = 50
Set wks = ActiveSheet
wks.Shapes.SelectAll
Selection.Delete
Anzahl = AnzMin + Int(Rnd() * (AnzMax - AnzMin - 1)) + 1
For Zaehler = 1 To Anzahl
Links = Int(800 * Rnd()) + 1
Oben = Int(500 * Rnd()) + 1
Figur = Int(Rnd() * (AnzFiguren)) + 1
Select Case Figur
Case 1: FigurTyp = msoShape5pointStar
Case 2: FigurTyp = msoShape8pointStar
Case 3: FigurTyp = msoShapeSun
Case 4: FigurTyp = msoShape16pointStar
Case 5: FigurTyp = msoShapeHeart
Case Else
FigurTyp = msoShapeMoon
End Select
wks.Shapes.AddShape Type:=FigurTyp, _
Left:=Links, Top:=Oben, Width:=Groesse, Height:=Groesse
Next
End Sub
Sub Loesung()
MsgBox "Anzahl der Figuren: " & Anzahl
End Sub