如何将照片竖排变横排

hzg543320

表1存有个人二维码图片，如果一页页打印太费纸，能不能把二维码变成如表2固定的4列

风筝那根线

照片竖排变横排.zip (295.69 KB, 下载次数: 61)

2019-11-24 13:55 上传

点击文件名下载附件

aman1516

设置下图片属性，直接单元格复制主可以了：

1. Sub cc()
   
2. Dim shp As Shape, r, i, j, k
   
3. With Sheets("二维码")
   
4.      For Each shp In .Shapes
   
5.          shp.Placement = xlMoveAndSize
   
6.      Next
   
7.      Call delshp
   
8.      r = 1: j = 1
   
9.      For i = 4 To .[A65536].End(xlUp).Row
   
10.          Sheets("二维码").Range("F" & i).Copy Sheets("分页打印").Cells(r, j)
    
11.          Sheets("分页打印").Cells(r, j + 1) = .Range("G" & i).Value
    
12.          j = j + 3
    
13.          If j > 9 Then j = 1: r = r + 1
    
14.      Next
    
15. End With
    
16. End Sub
    
17. 
    
18. Sub delshp()
    
19. Dim shp As Shape
    
20. With Sheets("分页打印")
    
21.      .Cells.ClearContents
    
22.      For Each shp In .Shapes
    
23.          shp.Delete
    
24.      Next
    
25. End With
    
26. End Sub

复制代码

aman1516

详见附件：
照片竖排变横排.rar (287.12 KB, 下载次数: 14)

2019-11-24 14:04 上传

点击文件名下载附件