Excel实现图片隐藏和显示

netsonic

估计要VBA实现，但不会写代码。
如图所示，一开始两行图片均显示，按下按钮后，有2种情况

• 第二行图片消失；第一行图片显示若干时间，比如20s，然后消失；第二行出现并一直显示，也就是说最后只有第二行显示。
• 第二行图片消失；第一行图片显示若干时间，比如20s，然后消失；第二行出现，显示若干时间，比如30s，然后消失，也就是说最后图片都不显示。
  

aman1516

模块代码：

1. Public B As Boolean
   
2. 
   
3. Sub AUTOREF()
   
4. Dim shp As Shape
   
5. Call SHOWALL
   
6. If B Then
   
7.    For Each shp In ActiveSheet.Shapes
   
8.        If shp.Type <> 8 And shp.Type <> 12 Then
   
9.        If shp.Top < Range("A3").Top Then
   
10.           shp.Visible = msoFalse
    
11.        Else
    
12.           shp.Visible = msoCTrue
    
13.        End If
    
14.        End If
    
15.    Next
    
16. Else
    
17.    For Each shp In ActiveSheet.Shapes
    
18.        If shp.Type <> 8 And shp.Type <> 12 Then
    
19.        If shp.Top < Range("A3").Top Then
    
20.           shp.Visible = msoCTrue
    
21.        Else
    
22.           shp.Visible = msoFalse
    
23.        End If
    
24.        End If
    
25.    Next
    
26. End If
    
27. INTLTIME = Now + TimeSerial(0, 0, 10) '设置间隔时间为10秒
    
28. DoEvents
    
29. B = Not B
    
30. Application.OnTime INTLTIME, "AUTOREF"
    
31. End Sub
    
32. 
    
33. Sub STOPAUTO()
    
34. End
    
35. Application.OnTime INTLTIME, "AUTOREF", , False '关闭自动
    
36. End Sub
    
37. 
    
38. Sub SHOWALL()
    
39.   Dim shp As Shape
    
40.   For Each shp In ActiveSheet.Shapes
    
41.       shp.Visible = msoCTrue
    
42.   Next
    
43.   End
    
44. End Sub

复制代码

aman1516

详见附件：
Pic12.rar (179.21 KB, 下载次数: 24)

2022-11-26 21:01 上传

点击文件名下载附件

netsonic

aman1516 发表于 2022-11-26 11:52
详见附件：

里面三个按钮按了没反应

02761752696

netsonic 发表于 2022-11-26 16:27
里面三个按钮按了没反应

去掉试试....

netsonic

02761752696 发表于 2022-11-26 16:29
去掉试试....

去掉2个END后，有两个问题

• 按下AutoRef后，第一行和第二行的图片交替显示，这不符合我一楼的要求
• 按下StopAuto后，弹出错误
  

02761752696

netsonic 发表于 2022-11-26 16:41
去掉2个END后，有两个问题

按下AutoRef后，第一行和第二行的图片交替显示，这不符合我一楼的要求

错误和END 无关，系统的问题吧

netsonic

02761752696 发表于 2022-11-26 16:57
错误和END 无关，系统的问题吧

你这里去掉END运行正常吗？

aman1516

有一个END去掉， 用多个参数退出循环。楼上附件已更新
核心就两点：shp.Visible属性 和 OnTime函数
楼主文档也是个半成品吧，附件只告诉你控制方法，具体最终要怎么组合使用，参考着改下就行了

netsonic

aman1516 发表于 2022-11-26 21:00
有一个END去掉， 用多个参数退出循环。楼上附件已更新
核心就两点：shp.Visible属性 和 OnTime函数
楼主 ...

能运行，但AutoREF的结果是第一行和第二行图片交替出现，这个原来的需求不一致。
原来需求，分步骤叙述如下：
1. 第二行图片消失；
2. 第一行图片显示若干时间，比如20s，然后消失；
3. 第二行图片重新出现，显示若干时间，比如30s，然后消失，也就是说最后所有图片都不显示。

求大神再改改。