统一图片高度

wqfzqgk

Sub 统一图片高度()
Dim shap As Shape
For Each shap In ActiveSheet.Shapes
If shap.Type = msoPicture Then
With shap
.Height = 16
.Left = .TopLeftCell.Left
.Top = .TopLeftCell.Top
End With
End If
Next
End Sub