klõpsa, auk.värv = juhuarv klõpsa mind! plats.värv = juhuarv paus pp Sub Lenda_P() Dim P As Shape, plats As Shape, auk As Shape Set P = Shapes("pall"): Set plats = Shapes("plats") sed esitused VBAs, Set auk =Shapes("auk") Range("tabas") = 0 evusdiagrammidel Do P.Left = plats.Left + Rnd() * plats.Width P.Top = plats.Top + Rnd() * plats.Height If On_Puude(P, Shapes("auk")) Then Range("tabas") = Range("tabas") + 1 aused laused auk.Fill.ForeColor.SchemeColor = Rnd() * 70 plats.Fill.ForeColor
plats.värv = juhuarv mind! Stopp paus pp ✘ Näita proget Sub Lenda_P() Dim P As Shape, plats As Shape, auk As Shape Set P = Shapes("pall"): Set plats = Shapes("plats") sed esitused VBAs, Set auk =Shapes("auk") evusdiagrammidel Range("tabas") = 0 Do P.Left = plats.Left + Rnd() * plats.Width P.Top = plats.Top + Rnd() * plats.Height If On_Puude(P, Shapes("auk")) Then laused Range("tabas") = Range("tabas") + 1 auk.Fill.ForeColor.SchemeColor = Rnd() * 70
plats.värv = juhuarv mind! Stopp paus pp Näita proget Sub Lenda_P() Dim P As Shape, plats As Shape, auk As Shape Set P = Shapes("pall"): Set plats = sed esitused VBAs, Shapes("plats") Set auk =Shapes("auk") evusdiagrammidel Range("tabas") = 0 Do P.Left = plats.Left + Rnd() * plats.Width P.Top = plats.Top + Rnd() * plats.Height If On_Puude(P, Shapes("auk")) Then laused Range("tabas") = Range("tabas") + 1 auk.Fill.ForeColor.SchemeColor = Rnd() * 70
annaabi.ee 
