Excel VBA 调整图片高度宽度等于单元格高度宽度

• xmar 发布于
• 1400 收藏

'调整图片高度宽度等于单元格高宽 Sub setpic() Dim Pic As Shape     For Each Pic In ActiveSheet.Shapes      If Pic.Type = 13 Then '如果pic的类型是图片         Pic.LockAspectRatio = msoFalse         Pic.Top = Pic.TopLeftCell.T...