[已解决]excel中显示与隐藏图片方法，求高手赐教

Taocai

当Sheet1中A1、A2、A3分别小于或等于0不显示图片，大于0时显示图片，图片为PNG格式


模板.zip (412.11 KB, 下载次数: 10)

2017-2-15 22:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ghostjiao

2017-2-17 09:09

1. Sub demo()
   
2.     Dim i As Integer
   
3.     For i = 1 To 3
   
4.         If Sheet1.Cells(i, 1) > 0 Then
   
5.             Sheet2.Shapes(i).Visible = msoTrue
   
6.         Else
   
7.             Sheet2.Shapes(i).Visible = msoFalse
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

哎，老了，啥都不会了，是这个意思吗

跳转到最佳答案楼层

Taocai

有高手帮帮忙不，感激不尽

ghostjiao

1. Sub demo()
   
2.     Dim i As Integer
   
3.     For i = 1 To 3
   
4.         If Sheet1.Cells(i, 1) > 0 Then
   
5.             Sheet2.Shapes(i).Visible = msoTrue
   
6.         Else
   
7.             Sheet2.Shapes(i).Visible = msoFalse
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

哎，老了，啥都不会了，是这个意思吗

Taocai

ghostjiao 发表于 2017-2-17 09:09
哎，老了，啥都不会了，是这个意思吗

有段时间没上来了，大神真厉害，终于应用到想要的excel中去了非常谢谢~！{:221:}