网站首页 美食营养 游戏数码 手工爱好 生活家居 健康养生 运动户外 职场理财 情感交际 母婴教育 时尚美容

Excel表格的图片自动排列

时间:2024-10-12 12:29:31

1、打开Excel表格,按下【Alt+F11】组合键调出VBE编辑器。

Excel表格的图片自动排列

3、在模块代码框里边输入以下VBA程序代码。Sub Shapes_Sort()Dim i, ShpOn Error Resume Next '忽略运行中可能出现的错误Application.ScreenUpdating = False '关闭工作表更新,提高运行速度Set mySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1工作表i = 1 '初始值For Each Shp In mySheet1.Shapes '扫描工作表Sheet1里面的每一张图片i = i + 1 '从第2行开始Shp.LockAspectRatio = msoFalse '不锁定图片的比例Shp.Height = mySheet1.Cells(i, 5).Height '图片的高度设为单元格高度Shp.Width = mySheet1.Cells(i, 5).Width '图片的宽度设为单元格宽度Shp.Top = mySheet1.Cells(i, 5).Top '图片的位置为E列对应单元格到顶部的距离Shp.Left = mySheet1.Cells(i, 5).Left '图片的位置为E列对应单元格到左侧的距离NextApplication.ScreenUpdating = True '恢复更新显示End Sub

Excel表格的图片自动排列

5、回到Sheet1工作表界面,将会看到图片已经自动排列到E列单元格上边。

Excel表格的图片自动排列
© 2025 小知经验
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com