GBKEE

¦^´_ 1# yangtest

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = [K4].Address Then ©I¥s¬Û¤ù
   
3.     Target.Select
   
4. End Sub
   
5. Private Sub ©I¥s¬Û¤ù()
   
6.        Dim ¸ê®Æ§¨ As String, ºô­¶·Ó¤ù As String
   
7.        ¸ê®Æ§¨ = "d:\¤j½æ³õ\"   '¶·­×¸ê®Æ§¨
   
8.        ºô­¶·Ó¤ù = "http://us.123rf.com/400wm/400/400/janaka/janaka0808/janaka080800490/3398188-3d-question-mark-icon-3d-art.jpg"
   
9.        On Error Resume Next
   
10.         Shapes("Rectangle 4").Fill.UserPicture ¸ê®Æ§¨ & [K4] & ".jpg"
    
11.         If Err.Number <> 0 Then Shapes("Rectangle 4").Fill.UserPicture ºô­¶·Ó¤ù
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# dafa

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$K$4" Then Exit Sub
   
3. On Error Resume Next
   
4. Image1.Picture = LoadPicture(ThisWorkbook.Path & "\JPG\" & [e12])
   
5. If Err <> 0 Then Image1.Picture = LoadPicture
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# dafa
§Aªº¤]¤£¿ùªº

¦^´_ 10# jesscc
∅ ³o¯S®í¦r¤¸ §Ú¨S¿ìªk

GBKEE

¦^´_ 13# yangtest
¦] Image1.Picture = LoadPicture(  ºô­¶·Ó¤ù )µ{¦¡½X, ·|¦³¿ù»~. §Ö¨ú¹Ï®× : ¦â±m½u±ø «ü©w¹Ï¤ù  ¥i§ì¨úºô¸ô¤Wªº¹Ï¤ù
©T 3# ¥Î  If Err.Number <> 0 Then Shapes("Rectangle 4").Fill.UserPicture ºô­¶·Ó¤ù , ¨Ó³B¸Ì¿ù»~.