使用VBA复制、插入、移动、删除和控制图片2

fanjy

发布于 2023-08-29 21:09:08

2420

发布于 2023-08-29 21:09:08

文章被收录于专栏：完美Excel完美Excel

标签：VBA

前一篇：使用VBA复制、插入、移动、删除和控制图片1

情形6：遍历工作表中所有图片

下面的代码遍历当前工作表中所有图片。

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：验证所选对象是否是图片

下面的代码验证指定对象是否为图片。

Sub CheckIfPicture()
 Dim obj As Object
 Set obj = Selection
 
 If TypeName(obj) = "Picture" Then
   MsgBox "所选的是图片"
 Else
   MsgBox "所选的不是图片"
 End If
End Sub

情形8：链接图片

图片能够被链接到单元格或者命名区域，这样可以使图片是动态的，当单元格中的内容变化时图片也随之变化。

Sub MakeImageLinkedPicture()
 Dim ws As Worksheet
 Set ws = ActiveSheet
 ws.Pictures("Picture 6").Formula = "=C2:E9"
End Sub

情形9：图片放置和锁定

可以使用放置选项控制图片行为。

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：旋转图片

下面的代码旋转图片指定数。

Sub RotateImageIncremental()
 Dim myImage As Shape
 Dim rotationValue As Integer
 
 Set myImage = ActiveSheet.Shapes("Picture 6")
 rotationValue = 45
 
 myImage.IncrementRotation (rotationValue)
End Sub

或者：

Sub RotateImageAbsolute()
 Dim myImage As Shape
 Dim rotationValue As Integer
 
 Set myImage = ActiveSheet.Shapes("Picture 6")
 rotationValue = 120
 
 myImage.Rotation = rotationValue
End Sub

未完待续......

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

本文参与?腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2023-05-12，如有侵权请联系?cloudcommunity@tencent.com 删除

vba