将A列最后数据行以上的所有B列图片大小调整为所在单元大小

jb_008

1. Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()
   
2. Dim Pic As Picture, i&
   
3. i = [A65536].End(xlUp).Row
   
4. For Each Pic In Sheet1.Pictures
   
5. If Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then
   
6. Pic.Top = Pic.TopLeftCell.Top
   
7. Pic.Left = Pic.TopLeftCell.Left
   
8. Pic.Height = Pic.TopLeftCell.Height
   
9. Pic.Width = Pic.TopLeftCell.Width
   
10. End If
    
11. Next
    
12. End Sub
    

复制代码

yiguo

多谢楼主分享，学习先。