本文介绍一下，如何对工作表中的图片进行属性设置 。
如下图所示：
首先插入4张图片，设置图片visible属性为false ， 这样就不显示图片 。
本文示例可以实现单击特定单元格进行图片的轮换显示效果 。
下图为显示不同图片的效果 。
图片中为一些实际应用，可以免费获得 。
图片在Excel工作表中通过遍历shapes来进行获取 。
如下代码：
Dim s As ShapeFor Each s In ActiveSheet.Shapess.Visible = msoFalseNext sSet s = Nothing
当然也可直接指定某个图片对象 。
如：shapes(1)
代码：
Sub showPic(xShape As Shape)'遍历并显示或隐藏图片Dim s As ShapeFor Each s In ActiveSheet.ShapesIf s.Name = xShape.Name ThenWith s.Visible = msoTrue.Top = Range("F3").Top5.Left = Range("F3").Left.Width = 900.Height = 380.LockAspectRatio = msoFalseEnd WithElses.Visible = msoFalseEnd IfNext sSet s = NothingEnd Sub
单击工作表事件过程
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Select Case Target.AddressCase "$D$3"showPic Shapes(1)setColor TargetCase "$D$4"showPic Shapes(2)setColor TargetCase "$D$5"showPic Shapes(3)setColor TargetCase "$D$6"showPic Shapes(4)setColor TargetEnd SelectEnd Sub如需要本文内容中应用可以通过私信免费获?。?
- 办公文件管理
- 结婚礼单管理
- 年会抽奖
- 工作日志管理