Jimmy筆記: Office-使用PPT,巨集加入今天日期及名字

2021年10月24日星期日

Office-使用PPT,巨集加入今天日期及名字

常做報告時，PPT第一頁需加入報告人及日期，使用巨集進行加入，減少忘了輸到日期或輸錯問題，有了PPT巨集功能方便，在做PPT重覆性工作時，增加不少效率。

Sub Initial()

'指定投影片第一頁。
Set P1 = ActivePresentation.Slides(1)

Dim GetID

' 請取Windows 帳號。
GetID = Environ$("username")

'寫入帳號及日期。
Pl.Shapes(2).TextFrame.TextRange.Text = GetID & _
Chr(13) & Format(Date, "mm") & " " & Format(Date, "dd") & " ," & Format(Date, "yyyy")

End Sub

結果：

沒有留言:

張貼留言

訂閱：張貼留言 (Atom)