excel 插入图片怎么样让他自动排列
发布网友
共1个回答
热心网友
先把行高调整到合适的宽度（刚好可以放下一张图片），然后用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim xPic As Shape
Dim i As Integer
i = 1
For Each xPic In ActiveSheet.Shapes
If xPic.Type = 13 Then
xPic.Left = Range("A" & i).Left
xPic.Top = Range("A" & i).Top
i = i + 1
End If
Next
End Sub
在此界面直接按F5运行此宏，所有图片的左上角依次与单元格A1、A2、A3、...的左上角对齐。
