如何将添加到excel里的图片一次性竖直排列

樱之桦

在excel 的sheet1里一次性插入了多张照片，想让其像sheet2一样竖直排列，请问有什么方法。
sheet2里的图片是一张一张手动插入的，特别费时间，想问一次性插入的多张图片能不能直接竖直排列。
花.zip (1.05 MB, 下载次数: 18)

2019-9-18 13:56 上传

点击文件名下载附件

悠悠的炊烟

1. Sub aa()
   
2.     Dim i, height
   
3.     With Sheets("sheet1").Shapes(1)
   
4.         .Top = Range("a1").Top
   
5.         .Left = Range("a1").Left
   
6.         height = .height
   
7.     End With
   
8.     For i = 2 To Sheets("sheet1").Shapes.Count
   
9.         With Sheets("sheet1").Shapes(i)
   
10.             .Top = height
    
11.             .Left = Sheets("sheet1").Shapes(1).Left
    
12.             height = height + .height
    
13.         End With
    
14.     Next i
    
15. End Sub
    

复制代码

悠悠的炊烟

前面发了代码，不知哪去了，再发个附件吧

樱之桦

悠悠的炊烟 发表于 2019-9-18 15:40
前面发了代码，不知哪去了，再发个附件吧

谢谢大神，太好用了，实现了我的目的，十分感谢哦

悠悠的炊烟

第一张图片花的颜色太好看了，居然每个花瓣颜色都不同，真的是自己长成这样的吗？