原來PPT有Button功能

今天刷B站看到一個PPT的教學，但今天的內容竟然是寫程式，我就心血來潮照他的步驟做了一次，可惜開發者功能好像很少人會用，網路上資料很少

先從開發者工具產生一個按鈕，按右鍵可以編輯程式碼

附上程式碼

Private Sub CommandButton1_Click()

r = Int(Rnd * 80)

g = Int(Rnd * 80)

b = Int(Rnd * 80)

t = 0.3 * Rnd + 0.1

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(2).Fill

    .ForeColor.RGB = RGB(r, g, b)

    .Transparency = t

End With

For Each Shape In myDocument.Shapes

    If Shape.HasTextFrame Then

        Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)

    End If

Next

End Sub

這個程式碼是隨機調整投影片那一頁的矩形顏色和透明度，只要按按鈕，矩形顏色就會有變化

這樣的程式碼真的蠻有趣的