[已解决]如何根据金额打印excel中的图形对象

ycb20010823

要求在excel表格中，谢谢各位老师！！

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-7-22 19:22

1. Sub tt()
   
2.     If [o15] > 100 Then
   
3.         ActiveSheet.Shapes("组合 11").Visible = True
   
4.     Else
   
5.         ActiveSheet.Shapes("组合 11").Visible = False
   
6.     End If
   
7.     PrintOut
   
8. End Sub

复制代码

跳转到最佳答案楼层

苏子龙

1. Sub tt()
   
2.     If [o15] > 100 Then
   
3.         ActiveSheet.Shapes("组合 11").Visible = True
   
4.     Else
   
5.         ActiveSheet.Shapes("组合 11").Visible = False
   
6.     End If
   
7.     PrintOut
   
8. End Sub

复制代码

ycb20010823

苏子龙 发表于 2017-7-22 19:22

Shapes("组合 11")如何查看到的呢，为什么不是Shapes("组合 12")呢？谢谢老师！！

苏子龙

ycb20010823 发表于 2017-7-22 19:46
Shapes("组合 11")如何查看到的呢，为什么不是Shapes("组合 12")呢？谢谢老师！！

选定后，地址栏里自己会出现的，也可以重新命名

ycb20010823

苏子龙 发表于 2017-7-22 19:53
选定后，地址栏里自己会出现的，也可以重新命名

看到了，我也明白了，谢谢老师的指导！！