excelperfect 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
Sub MakeImageLinkedPicture() Dim ws As Worksheet Set ws = ActiveSheet ws.Pictures('Picture 6').Formula = '=C2:E9' End Sub
Sub RotateImageIncremental() Dim myImage As Shape Dim rotationValue As Integer Set myImage = ActiveSheet.Shapes('Picture 6') rotationValue = 45 myImage.IncrementRotation (rotationValue) End Sub
|
|
来自: hercules028 > 《VBA》