標題: 统一图片高度 [打印本頁]

---

作者: wqfzqgk    時間: 2010-6-29 00:11     標題: 统一图片高度

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)