Python图&x27;闪烁';并在VBA中运行python脚本时消失

Python图&x27;闪烁';并在VBA中运行python脚本时消失,python,excel,vba,graph,Python,Excel,Vba,Graph,我正在尝试运行一个python脚本,该脚本从ExcelVBA生成一个图形。当我在Spyder IDE中运行脚本时,我会在一个单独的控制台中获得一个正确的图形。当我从Excel运行相同的脚本时,VBA图形闪烁并消失 我还尝试过使用:python脚本中包含的这四行(如下)仅在我使用Spyder IDE时有效,但在从VBA运行脚本时再次失败 matplotlib.interactive(False) plt.show(块=假) plt.暂停(10) plt.close() 即使我使用 输入('按任意键

我正在尝试运行一个python脚本,该脚本从ExcelVBA生成一个图形。当我在Spyder IDE中运行脚本时,我会在一个单独的控制台中获得一个正确的图形。当我从Excel运行相同的脚本时,VBA图形闪烁并消失

我还尝试过使用:python脚本中包含的这四行(如下)仅在我使用Spyder IDE时有效,但在从VBA运行脚本时再次失败

matplotlib.interactive(False)

plt.show(块=假)

plt.暂停(10)

plt.close()

即使我使用

输入('按任意键退出')

没有用

如何解决此问题? 下面是Python脚本

import numpy as np
import matplotlib.pyplot as plt

city=['AA','BB','CC','DD','EE']
pop=[5,8,6,10,1]

figure=plt.figure(figsize=(6,4))

plt.plot(city,pop)
plt.title("Graph1")
plt.xlabel("Cities")
plt.ylabel("Population")


plt.show()
input('Press Any Key To Exit')
以下是Excel VBA脚本:

Sub python()
Dim shell As Object
Dim exepath, scriptPath As String

Set shell = VBA.CreateObject("Wscript.Shell")

exepath = """C:\ProgramData\Anaconda3\python.exe"""
scriptPath = "Path of Python Script"



shell.Run exepath & scriptPath


End Sub