“代码暂存”的版本间差异
跳到导航
跳到搜索
| 第1行： | 第1行： | ||
*Arctime Pro字幕通用样式 | *Arctime Pro字幕通用样式 | ||
<pre>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</pre> | <pre>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</pre> | ||
*PPT导出1080P 60FPS的宏 | |||
<pre> | |||
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 | |||
</pre> | |||
2023年3月6日 (一) 17:50的版本
- 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
- 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