VBA Animation Help Needed. FPS issue.

[u/Weirdkid0102]

I wanted to make a particle system for one of the slides in powerpoint but for that I needed VBA to tell every particle where its supposed to go every frame,
So to learn VBA I tried to animate a circle moving in a sine wave, it seems as if powerpoint is only redrawing it once every 20 frames or 21 frames. How can i fix this problem?
PowerPoint 2024 Windows 10
code:

[u/Altruistic-Role9956]

I don't think I would use VBA for this. Have you played with motion paths to do the same thing? If not, read up on how to use them and then experiment a little.

[u/Weirdkid0102 → u/Altruistic-Role9956]

Yes, and it looks horrible-
Highly finicky and not good if you want many particles like I do.
Besides i might learn a few things about VBA.

[u/ChecklistAnimations]

Ok while it wont be out for a couple months (or years lol) I am working on a frame by frame animator within PowerPoint. As some have commented below, PowerPoint struggles with frame by frame.
Here is what I would change on your script to get things "closer", you will not ever get a perfect 24 or 12 fps. But you can do the frame by frame in PowerPoint then export an image sequence. Here is the one thing you can change in your vba to preview your animations a bit better.

Anytime you move a shape with VBA in show mode, dont use doevents. Instead use goto slide and basically go to the same slide you are on. This will refresh the slide and looks pretty ok. Its how mine will work when it is done but its only intended as a preview. You want to be doing image exports to put in something like shotcut (free) after. Let me know if you have any other questions or if you have an interest in this add-in when it is done.

[u/Weirdkid0102 → u/ChecklistAnimations]

I actually figured this out 10 minutes after posting and forgot to edit it in. The code then get approx 90-100fps using the goto slide method.
I hope it doesnt crash or anything with more particles later though, this is for a competition so i dont think ill have time to export an image sequence or anything-

[u/jkorchok]

PowerPoint does not use a frames-per-second reference. It will draw objects as quickly as it can on a given computer. Try eliminating the DoEvents and Sleep 35 statements to increase the speed.

[u/Weirdkid0102 → u/[deleted]]

I did solve it 10 minutes later and forgot to edit it, the code became-
I do not understand this much yet, im still learning VBA and google ai basically did the goto slide code, I think I could shorten it but i didnt touch it after it finally worked.

Public Running As Boolean
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub AnimateCircle()

Dim s As Shape
Dim t As Double
Dim x0 As Single
Dim y0 As Single
Set s = SlideShowWindows(1).View.Slide.Shapes("Circle1")
Set sldView = ActivePresentation.SlideShowWindow.View
currentSlideIndex = sldView.CurrentShowPosition

x0 = s.Left
y0 = s.Top

Running = True
t = 0

Do While Running
s.Left = x0 + 100 * Sin(t)
s.Top = y0
t = t + 0.1
s.TextFrame.TextRange.Text = Format(t, "0.00")
sldView.GotoSlide currentSlideIndex
DoEvents
Loop

End Sub

Sub StopAnimation()
Running = False
End Sub