VBA 4: Shapes Simulation(Movement and rotation) using VBA _ works for Power Point, Excel, Word

[@neoalltech]

VBA code:(Copy paste the code)
Note: 'change the slide and shapes name as it is in your project
Sub moveright() 'to move the shape to right
ActivePresentation.Slides(1).Shapes("Rectangle").IncrementLeft = -10 'change as you want
End Sub
Sub moveleft() 'to move the shape to left
ActivePresentation.Slides(1).Shapes("Rectangle").IncrementLeft = 10 'change as you want
End Sub
Sub movetop() 'to move the shape to top
ActivePresentation.Slides(1).Shapes("Rectangle").IncrementTop = -10 'change as you want
End Sub
Sub movebottom() 'to move the shape to bottom
ActivePresentation.Slides(1).Shapes("Rectangle").IncrementLeft = -10 'change as you want
End Sub

[@muhammadfaheem-jz3nz]

Wow! It is very Great

[@changliu7553]

Good stuff. Thanks. Why do you call the object ("r")? is there a place the name can be adjusted? I can not find a place where the "official name" of the object is printed.

[@olimakiella]

can you play a sound every time a a shape moves? been trying to figure out the trigger, but I can't

[@rahmathidayat5701]

Mass kalo bergeraknya sesuai koordinat plus minus bisa gak... Misalnya... Kotaknya bergerak sesuai perintah koordinat minus dia ke kiri koordinat plus dia ke kanan gtu

[@arbelaezgeek4022]

Greetings, very useful information, I bother you with the following concern, to assign a diagonal movement (Jump) to an object as it would be, thanks

[@MrTseringTamang]

1st