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