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

qiulinfeng

做一个如图所示的图片，当输入数字大于60的时候，显示不高兴的图片，小于等于60的时候显示开心的图片，代码如下，excel中同样的代码可以很好的运行，但ppt中点击确定后图片不会变换，要退出或到下一页再退回来才会刷新，新手初接触，不知道什么原因。
Private Sub CommandButton21_Click()
If TextBox21.Value <= 60 Then
Image22.Picture = LoadPicture("d:\kx.jpg")
Else
Image22.Picture = LoadPicture("d:\bukx.jpg")
If IsNumeric(TextBox21.Text) = False Then
MsgBox "非数字,请重新输入"
End If
End If
End Sub
Private Sub CommandButton22_Click()
TextBox21.Value = ""
End Sub

banjinjiu

PowerPoint2003通过

1. Private Sub CommandButton1_Click()
   
2.     Dim shp As Object
   
3.     Set shp = ActivePresentation.Slides(1).Shapes("Image1")
   
4.     t = TextBox1.Value
   
5.     If t <= 60 Then
   
6.         Set shp.OLEFormat.Object.Picture = LoadPicture("C:\Users\Administrator\Desktop\ppt vba\bukx.jpg")
   
7.     Else
   
8.         Set shp.OLEFormat.Object.Picture = LoadPicture("C:\Users\Administrator\Desktop\ppt vba\kx.jpg")
   
9.         If IsNumeric(t) = False Then
   
10.             MsgBox "非数字,请重新输入"
    
11.         End If
    
12.     End If
    
13. End Sub

复制代码

其他版本，请修改。

qiulinfeng

太好了，谢谢