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

  • 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