之前有老師在群里問過，怎么在PPT里運行Python代碼。當時覺得解決這個問題性價比太低，就直接跳過了。今天無意間看到PPT里有個“開發工具”選項，這就意味著和其他Office家族成員一樣，可以寫VBA代碼。大家以前可能也都教過VB，那么這個問題就好實現了，先看看F5運行PPT的運行效果：

1、在控件工具箱里添加兩個文本框和一個按鈕。

2、修改TextBox1的MultiLine屬性為True，滾動條為豎向，文字從IDLE里面直接復制進去。稍微修改一下前景背景色、文字格式。

3、修改TextBox2的顯示效果。

4、雙擊按鈕進行VBA編碼：

具體如下：

Option Explicit

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

Public Function SaveTextAsUTF8(filePath, Text)

Const adTypeText = 2

Const adSaveCreateOverWrite = 2

'Create Stream object

Dim TextStream

Set TextStream = CreateObject("ADODB.Stream")

With TextStream

.Open

.Charset = "UTF-8"

.Position = TextStream.Size

.WriteText Text

.SaveToFile filePath, adSaveCreateOverWrite

.Close

End With

Set TextStream = Nothing

End Function

Private Sub CommandButton1_Click()

Dim fileName As String

Dim r As Boolean

fileName = "d:\code\" & Format(Now, "hhmmss")

r = SaveTextAsUTF8(fileName & ".py", TextBox1.Text)

Dim FF As Long

Dim Strtemp As String

Shell "cmd.exe /c python " & fileName & ".py > " & fileName & ".txt ", vbHide

While Dir(fileName & ".txt") = ""

DoEvents

Sleep 500

Wend

FF = FreeFile

MsgBox "代碼運行成功"

Open fileName & ".txt" For Input As #FF

Strtemp = InputB(LOF(1), #FF)

Close #FF

TextBox2.Text = StrConv(Strtemp, vbUnicode)

End Sub

5、保存成帶“宏”的pptm格式，設置好宏安全性。

以上就是在PPT里運行Python代碼的過程，無非就是保存代碼到py文件，然后調用cmd運行Python命令，把執行結果保存到txt中，再呈現到PPT中。各位，如果有這個特殊需求的，可以一試。

總結

以上是生活随笔為你收集整理的python filename 以txt截尾_What？PPT里也能运行Python？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。