标签：VBA
前一篇：使用VBA复制、插入、移动、删除和控制图片1
情形6：遍历工作表中所有图片
下面的代码遍历当前工作表中所有图片。
代码语言：javascript复制Sub LoopThroughImages()
Dim shp As Shape
Dim ws As Worksheet
Set ws = ActiveSheet
For Each shp In ws.Shapes
If shp.Type = msoPicture Then
MsgBox shp.Name & "是一幅图片"
End If
Next shp
End Sub情形7：验证所选对象是否是图片
下面的代码验证指定对象是否为图片。
代码语言：javascript复制Sub CheckIfPicture()
Dim obj As Object
Set obj = Selection
If TypeName(obj) = "Picture" Then
MsgBox "所选的是图片"
Else
MsgBox "所选的不是图片"
End If
End Sub情形8：链接图片
图片能够被链接到单元格或者命名区域，这样可以使图片是动态的，当单元格中的内容变化时图片也随之变化。
代码语言：javascript复制Sub MakeImageLinkedPicture()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Pictures("Picture 6").Formula = "=C2:E9"
End Sub情形9：图片放置和锁定
可以使用放置选项控制图片行为。
代码语言：javascript复制Sub ImagePlacementAndLocking()
Dim myImage As Shape
Dim ws As Worksheet
Set ws = ActiveSheet
Set myImage = ws.Shapes("Picture 6")
'图片放置选项
myImage.Placement = xlFreeFloating
'锁定图片（在工作表保护时阻止编辑）
myImage.Locked = True
End Sub情形10：旋转图片
下面的代码旋转图片指定数。
代码语言：javascript复制Sub RotateImageIncremental()
Dim myImage As Shape
Dim rotationValue As Integer
Set myImage = ActiveSheet.Shapes("Picture 6")
rotationValue = 45
myImage.IncrementRotation (rotationValue)
End Sub或者：
代码语言：javascript复制Sub RotateImageAbsolute()
Dim myImage As Shape
Dim rotationValue As Integer
Set myImage = ActiveSheet.Shapes("Picture 6")
rotationValue = 120
myImage.Rotation = rotationValue
End Sub未完待续......
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
