netxray 发表于 2017-2-20 11:05:37

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

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



刘倩倩 发表于 2017-2-20 12:59:10


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 发表于 2017-2-20 14:41:31

太好了，谢谢
页: [1]
查看完整版本: ppt image 控件根据预设条件调用显示图片的问题