py怎么运⾏_What？PPT⾥也能运⾏Python？
之前有⽼师在⾥问过，怎么在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 " /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格式，设置好宏安全性。
python怎么读取py文件
以上就是在PPT⾥运⾏Python代码的过程，⽆⾮就是保存代码到py⽂件，然后调⽤cmd运⾏Python命令，把执⾏结果保存到txt中，再呈现到PPT中。各位，如果有这个特殊需求的，可以⼀试。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。