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

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

結果：