excel 插入图片怎么样让他自动排列

发布网友发布时间：2022-04-21 02:24

共1个回答

热心网友时间：2022-06-17 08:05

先把行高调整到合适的宽度（刚好可以放下一张图片），然后用宏。同时按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、...的左上角对齐。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com