怎么用代码让图片自动适应单元格的大小

鄂龙蒙

请教：现有在单元格内的图片怎么用代码让图片自动适应单元格的大小？谢谢！

已插入的图片自动调整到适应单元格.rar (31.21 KB, 下载次数: 49)

2016-12-26 21:23 上传

点击文件名下载附件

huang1314wei

1. Sub test()
   
2.     Dim shp As Shape
   
3.     For Each shp In Sheet1.Shapes
   
4.         If shp.Type = 13 Then
   
5.             With shp
   
6.                 .LockAspectRatio = msoFalse
   
7.                 .Left = shp.TopLeftCell.Left
   
8.                 .Top = shp.TopLeftCell.Top
   
9.                 .Width = shp.TopLeftCell.Width
   
10.                 .Height = shp.TopLeftCell.Height
    
11.             End With
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码