ppt image 控件根据预设条件调用显示图片的问题

netxray

做一个如图所示的图片，当输入数字大于60的时候，显示不高兴的图片，小于等于60的时候显示开心的图片，代码如下，excel中同样的代码可以很好的运行，但ppt中点击确定后图片不会变换，要退出或到下一页再退回来才会刷新，新手初接触，不知道什么原因。
Private Sub CommandButton21_Click()
If TextBox21.Value


ppt vba.rar (237.47 KB, 下载次数: 96)

2017-2-20 11:05 上传

点击文件名下载附件

刘倩倩

PowerPoint2003通过

• Private Sub CommandButton1_Click()
  
•     Dim shp As Object
  
•     Set shp = ActivePresentation.Slides(1).Shapes("Image1")
  
•     t = TextBox1.Value
  
•     If t <= 60 Then
  
•         Set shp.OLEFormat.Object.Picture = LoadPicture(&quot;C:UsersAdministratorDesktopppt vbabukx.jpg&quot;)
  
•     Else
  
•         Set shp.OLEFormat.Object.Picture = LoadPicture(&quot;C:UsersAdministratorDesktopppt vbakx.jpg&quot;)
  
•         If IsNumeric(t) = False Then
  
•             MsgBox &quot;非数字,请重新输入&quot;
  
•         End If
  
•     End IfEnd Sub
  

复制代码
其他版本，请修改。

bhsyyxgs88

太好了，谢谢