MS Excel

Robí sa to tak, že obrázok panáčka si skopíruješ do riadku a makrom potom riadiš vlastnosť visible jednotlivých obrázkov - povedzme, že budeš mať 10 panáčikov, na začiatku bude viditeľný prvý obrázok a makrom potom prepínaš postupne viditeľnosť druhého, tretieho atď.; v každom kroku je vždy viditeľný iba jeden a ostatné sú skryté, to vyvolá ilúziu pohybu obrázka, v skutočnosti je v liste obrázkov niekoľko.

Iná možnosť je, že budeš makrom v cykle meniť hodnotu LEFT a TOP objektu SHAPE; v tomto prípade si vystačíš s jedným obrázkom panáčika a ten makrom po liste skutočne posúvať.citovat

Príklad na mnou popísaný druhý spôsob:

Do kódového okna Listu1 vlož:Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [A1] And Target.Value = 1 Then Call MovePic
End SubDo okna modulu vlož:Option Explicit

Dim iniLft As Single
Sub MovePic()
Dim tillLft As Single
tillLft = Sheet1.Shapes("Obdélník 4").Left
With Sheet1.Shapes("Veselý oblièej 5")
iniLft = .Left
Do While .Left < tillLft
.Left = .Left + 10
Application.Wait (Now + 0.0000057)
Loop
End With
End Sub

Sub ResetPicPos()
Sheet1.Shapes("Veselý oblièej 5").Left = iniLft
End SubMakru ResetPicPos buď priraď tlačítko, alebo ho naviaž na nejaký event, obnoví východziu pozíciu toho panáčika.citovat

Sheet1 máš vo svojom projekte pomenovaný ako List1, takže v kóde to potom musí byť tiež List1. Okrem toho, musíš si skontrolovať diakritiku, správne v kóde má byť "Veselý obličej 5", ten editor na wall to zobrazuje v mojom príklade špatne. Chlape, to sú základy, než makro slepo nakopíruješ, tak sa ho snaž pochopiť! To je Tvoja domáca úloha, nie moja...

Inak, keby panáčik nemal precházdať z jedného domu do druhého, ale iba od jedného k druhému, tak alternatívne potom trebárs takto:Option Explicit

Sub MovePic()
Dim tillLft As Single
With Sheet1
tillLft = .Shapes("Obdélník 4").Left - .Shapes("Veselý obličej 5").Width
End With
With Sheet1.Shapes("Veselý obličej 5")
Do
.Left = .Left + 10
Application.Wait (Now + 0.0000057)
Loop While .Left < tillLft
.Left = tillLft - 5
End With
End Sub
Sub ResetPicPos()
With Sheet1
.Shapes("Veselý obličej 5").Left = .Shapes("Obdélník 1").Left + .Shapes("Obdélník 1").Width + 5
End With
End Subcitovat

V prílohe posielam funkčné riešenie, čus.citovat

AL este jeden dodatek kdybych potreboval aby sel panacek nasikmo jaky prikaz mam jen upravit .. díky citovat