Új hozzászólás Aktív témák

• #19471 m.zmrzlina senior tag

  Új Válasz 2013-11-07 15:39:09 #19471

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  Játszom egy kicsit.

  Van egy képem elszabdalva 90 darabra. A darabokat beillesztettem egy munkalapra egy 3x30 cellás tartományba mindegyiket egy-egy cellához igazítva hogy éppen lefedje a cellát. (a 90 darabka kiadja az eredeti képet mintha puzzle volna) A cellákban a képek "mögött" van adat.

  Egy makróval egyenként fel szeretném fedni a képdarabkákat, hogy a cella tartalma alatta láthatóvá váljon. Ezt a következő pár sorral csinálom (gyakorlatilag 90 fokkal elfordítom a képet):

  Sub kep_rejt()
  
  For j = 1 To ActiveSheet.Shapes.Count
  
  ActiveSheet.Shapes.Range(Array(j)).Select
  
  For i = 0 To 90
  Selection.ShapeRange.ThreeD.RotationX = i
  Application.Wait Now + TimeValue("00:00:01") / 10
  Next
  
  Next
  
  End Sub

  A belső ciklus és a késleltetés azért kell, hogy ne egyszerre hanem egymás után (mintegy animálva)történjen a kisképek elfordítása. Kicsit olyan hatása van a dolognak mintha a kicsi képek szélessége addig csökkenne amíg el nem tűnnek.

  A problémám az, hogy a művelet szépen elindul majd kb a 20. kép táján elakad. Semmi látható nem történik majd pár másodberc múlva egyszerre felfedi az összes maradék képet.

  Bármilyen ötletet szivesen fogadok.

Új hozzászólás Aktív témák