之前有老師在群里問(wèn)過(guò)，怎么在PPT里運(yùn)行Python代碼。當(dāng)時(shí)覺(jué)得解決這個(gè)問(wèn)題性價(jià)比太低，就直接跳過(guò)了。今天無(wú)意間看到PPT里有個(gè)“開(kāi)發(fā)工具”選項(xiàng)，這就意味著和其他Office家族成員一樣，可以寫VBA代碼。大家以前可能也都教過(guò)VB，那么這個(gè)問(wèn)題就好實(shí)現(xiàn)了，先看看F5運(yùn)行PPT的運(yùn)行效果：

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

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

3、修改TextBox2的顯示效果。

4、雙擊按鈕進(jìn)行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 "代碼運(yùn)行成功"

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

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

Close #FF

TextBox2.Text = StrConv(Strtemp, vbUnicode)

End Sub

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

以上就是在PPT里運(yùn)行Python代碼的過(guò)程，無(wú)非就是保存代碼到py文件，然后調(diào)用cmd運(yùn)行Python命令，把執(zhí)行結(jié)果保存到txt中，再呈現(xiàn)到PPT中。各位，如果有這個(gè)特殊需求的，可以一試。

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。