¦pªG±N¥[´¡¹Ï¤ù¨ì¦X¦}Àx¦s®æ¨Ã¦Û°Ê½Õ¾ã¹Ï¤ù¤Ø¤o

198188

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

½Æ»s¥N½X

½Ð°Ý¦pªG¬O¦X¦}Àx¦s®æ¡A¦pªG§ï¤U­±³¡¤À¡Aµ{¦¡¬O®Ú¾Úªþ¹Ïªº1¡A2¡A3¡A4¡A5¡A6¡A7¡A8¡A9 ¦ì¸m¥[´¡¤J¹Ï¤ùÀɮצWºÙ1¡A2¡A3¡A4¡A5¡A6¡A7¡A8¡A9
§Y¬O¦³9±i¹Ï¤ù¡A¹Ï¤ù¦WºÙ¤À§O¬O1-9¡AµM«á·Q¥[´¡¤JExcel 1-9 ªº¦ì¸m¡A¤W¤U¥ª¥k¤Ø¤o®Ú¾ÚExcel ªº 1-9 ¦X¦}Àx¦s®æ¤@¼Ë

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