代码暂存

• Arctime Pro字幕通用样式

Style: SUBTITLE,阿里巴巴普惠体 H,75,&H0000B3FF,&H000000FF,&H00000000,&H00000000,0,0,0,0,100.0,100.0,0.0,0.0,1,2.0,2.8846154,2,10,10,40,1

• • 紫色版

Style: StyleName,阿里巴巴普惠体 H,75,&H00F56F8B,&H000000FF,&H00790743,&H00790743,0,0,0,0,100.0,100.0,0.0,0.0,1,2.0,2.5,2,10,10,59,1

• PPT导出1080P 60FPS的宏

Sub PowerPointVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Your PowerPoint Video.mp4", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=60, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub