Lock frame rate at 30 fps when exporting presentation as video

Hello community,

For my work I need to export a powerpoint presentation as a video file with 30 fps and then process it in a video editing software. To export the presentation as a video I use a script:

Sub ExportVideoFrameRate()
    If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
        ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Slide.mp4", _
            UseTimingsAndNarrations:=True, _
            DefaultSlideDuration:=5, _
            VertResolution:=1080, _
            FramesPerSecond:=30, _
            Quality:=100
    End If
End Sub

However, I found that the exported video file has a frame rate of 30.30 fps, and not exactly 30. This leads to the appearance of "ghost" frames during video editing and other inconveniences. So I have a question: how to modify my script to lock the frame rate during export to exactly 30 fps, and not 30.30?