求写PPT宏代码

Question

希望实现批量转化ppt格式到pptx，
批量转化，谢谢
能够运行

Answer 1

PPT中常用宏代码

倒计时宏代码

Option Explicit

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

Sub Tmr()

'Just in the eventuality that you click the start button twice

'isRunning stores the current state of the macro

'TRUE = Running; FALSE = Idle

Static isRunning As Boolean

If isRunning = True Then

End

Else

isRunning = True

Dim TMinus As Integer

Dim xtime As Date

xtime = Now

'On Slide 1, Shape 1 is the textbox

With ActivePresentation.Slides(1)

.Shapes(2).TextFrame.TextRange.Text = "Ladies & Gentlemen." & vbCrLf & _ "Please be seated. We are about to begin."

With .Shapes(1)

'Countdown in seconds

TMinus = 120

Do While (TMinus > -1)

' Suspend program execution for 1 second (1000 milliseconds)

Sleep 1000

xtime = Now

.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")) - _ TimeSerial(Hour(Now), Minute(Now), Second(Now) + TMinus), "hh:mm:s追问

暂不需要这个，xie xie

本回答被网友采纳