標題: 如果將加插圖片到合并儲存格並自動調整圖片尺寸 [打印本頁]

---

作者: 198188    時間: 7 小時前     標題: 如果將加插圖片到合并儲存格並自動調整圖片尺寸

1. Sub ttt()
   
2. On Error Resume Next
   
3. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
4. If fd.Show = -1 Then
   
5. T = fd.SelectedItems(1)
   
6. Else
   
7. MsgBox " Please Select The Location Folder, Then Press 'Confirm'"
   
8. Exit Sub
   
9. End If
   
10. 
    
11. Dim ss As Range, sp As Shape
    
12. For Each sp In ActiveSheet.Shapes
    
13. If sp.Type <> 8 Then
    
14. sp.Delete
    
15. End If
    
16. Next sp
    
17. 
    
18. For Each ss In Range("A9:L73")
    
19. DZ = T & "\" & ss.Value & ".JPG"
    
20. Z = ss.Offset(0, 1).Left
    
21. D = ss.Offset(0, 1).Top
    
22. K = ss.Offset(0, 1).Width
    
23. G = ss.Offset(0, 1).Height
    
24. ActiveSheet.Shapes.AddPicture DZ, 1, 1, Z, D, K, G
    
25. Next ss
    
26. 
    
27. End Sub

複製代碼

請問如果是合并儲存格，如果改下面部分，程式是根據附圖的1，2，3，4，5，6，7，8，9 位置加插入圖片檔案名稱1，2，3，4，5，6，7，8，9
即是有9張圖片，圖片名稱分別是1-9，然後想加插入Excel 1-9 的位置，上下左右尺寸根據Excel 的 1-9 合并儲存格一樣

For Each ss In Range("A9:L73")
DZ = T & "\" & ss.Value & ".JPG"
Z = ss.Offset(0, 1).Left
D = ss.Offset(0, 1).Top
K = ss.Offset(0, 1).Width
G = ss.Offset(0, 1).Height
ActiveSheet.Shapes.AddPicture DZ, 1, 1, Z, D, K, G
Next ss

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)