GBKEE

¦^´_ 1# PJChen

1. Sub Ex()
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     Workbooks("Shipping formula.xlsm").Sheets("Signed").Pictures(1).Copy
   
4.     With Workbooks("Shipping for ACE.xlsx")
   
5.         .Activate
   
6.         Set Rng(1) = .Sheets("PKG").[D:D].Find("TOTAL N. W.", LOOKAT:=xlPart).Offset(0, 12)
   
7.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, 0)
   
8.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(0, 2)
   
9.         For xi = 1 To 3
   
10.             Rng(xi).Parent.Activate
    
11.             Rng(xi).Activate
    
12.             ActiveSheet.Paste
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# PJChen
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Windows("Shipping formula.xlsm").Activate
   
5.     Sheets("Signed").Select
   
6.     ActiveSheet.Shapes.Range(Array("Picture 6")).Select
   
7.     Selection.Copy
   
8.     Set Rng = Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0)
   
9.     If Not Rng Is Nothing Then
   
10.         With Rng
    
11.             .Parent.Activate            'Worksheet
    
12.             .Activate                          'Range
    
13.         End With
    
14.         ActiveSheet.Paste
    
15.     End If
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# PJChen
ªþÀɬݬÝ

GBKEE

¦^´_ 6# PJChen
¥i±o¥¿½T ¹Ï¤ù¦WºÙ

1. Sub try()
   
2.   Dim S As Picture
   
3.   For Each S In Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures
   
4.      S.TopLeftCell.Offset(-1) = S.Name
   
5.   Next
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# PJChen
¸Õ¸Õ¬Ý

1. Sub try()  '¨C¤@­Óñ¦WÀɳ£¥i¥H§ï¥¦¦Û¤vªº¥N¸¹ ( Name ,¦WºÙ)
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
   
4.         For xi = 1 To .Pictures.Count
   
5.             .Pictures(xi).Name = "ñ¦W" & xi
   
6.         Next
   
7.         .Pictures("ñ¦W1").Copy '.Pictures("ñ¦W2").Copy
   
8.     End With
   
9.     With Workbooks("Shipping for ACE.xlsx")
   
10.         Set Rng(1) = .Sheets("PKG").[R:R].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
    
11.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
    
12.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(0, 1)
    
13.         For xi = 1 To 3
    
14.             Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù
    
15.             Rng(xi).PasteSpecial
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# PJChen

http://forum.twbts.com/viewthread.php?tid=8016&rpid=45083&ordertype=0&page=2#pid45083

GBKEE

¦^´_ 6# PJChen
»yªk ³£¥¿½T ¹B§@¥¿±`
µLªk¹B§@   ½Ð»¡¬O­þ¸Ì¥X¿ù!

GBKEE

¦^´_ 17# PJChen

1. Sub change_Signed()
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
   
4.         For xi = 1 To .Pictures.Count
   
5.             .Pictures(xi).Name = "ñ¦W" & xi
   
6.         Next
   
7.     End With
   
8.     MsgBox xi ' ³o®É xi=.Pictures.Count + 1 ¶W¥X Rngªº¯Á¤Þ­È
   
9.     Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù
   
10.     Rng(xi).PasteSpecial
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# PJChen
°õ¦æ«á¥X²{3ªº¹ï¸Ü®Ø,µM«á Rng(xi).Parent.Pictures.Delete ´NµLªk¹B§@
MsgBox xi ' ³o®É xi=.Pictures.Count + 1      xi ¤w¬O 3
¥i¬Oµ{¦¡½X  ¨S¬Ý¨ì SET Rng(xi)=??    ©Ò¥H·|¥X¿ù

GBKEE

¦^´_ 8# PJChen

1. Sub ¶Kñ¦W()   '¥ý°õ¦æ¦¹µ{¦¡
   
2. With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
   
3.         For xi = 1 To .Pictures.Count
   
4.             .Pictures(xi).Name = "ñ¦W" & xi
   
5.         Next
   
6.     End With
   
7. End Sub
   
8. Sub try_2()   '«á°õ¦æ¦¹µ{¦¡
   
9.     Dim Rng As Range
   
10.     Windows("Shipping formula-2.xlsm").Activate
    
11.     Sheets("Signed").Select
    
12.     ActiveSheet.Shapes.Range(Array("ñ¦W1")).Select
    
13.     Selection.Copy
    
14.     Set Rng = Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0)
    
15.     If Not Rng Is Nothing Then
    
16.         With Rng
    
17.             .Parent.Activate   'Worksheet
    
18.             .Activate       'Range
    
19.         End With
    
20.         ActiveSheet.Paste
    
21.     End If
    
22. End Sub

½Æ»s¥N½X