¦p¦ó¬d¸ß¨â­Ó¤£¦P­¶­±ªº¸ê®Æ

h99949

½Ð°Ý½d¨Ò1.­¶­±1ªº·s³æ»ù,¤J¼Æ,§÷¿n
¦p¦ó¦b½d¨Ò1.­¶­±1¿é¤J³f¸¹«á¥h¬d¸ß½d¨Ò2­¶­±1¸ò2«á
¶]¥X¬ÛÃö¸ê®Æ©O?

h99949

½Ð°Ý­n¦p¦ó¥u¶}½d¨Ò1¥¦·|¦Û°Ê§ì¨ì½d¨Ò2ªº¸ê®Æ
¦Ó¤£¬O¨â­Ó³£¶}©O?

h99949

¦^´_ 2# Hsieh


   ·PÁÂHsiehªº«ü¾É:)

Hsieh

¦^´_ 1# h99949
¸Õ¸Õ¬Ý
¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Calculate()
   
2. For Each a In Range([B3], [B3].End(xlDown))
   
3.   fs = Dir("D:\catalogue\" & a & ".jpg")
   
4.   If fs <> "" Then
   
5.      With ActiveSheet.Pictures.Insert("D:\catalogue\" & fs)
   
6.      Set c = a.Offset(, 9)
   
7.      .Left = c.Left
   
8.      .Top = c.Top
   
9.      .Height = c.Height
   
10.      .Width = c.Width
    
11.      End With
    
12.   End If
    
13. Next
    
14. End Sub

½Æ»s¥N½X

h99949

½Ð°Ý¦p¦ó¨Ì·Ó½d¥»­¶­±1¤Wªº³f¸¹¦Û°ÊÅã¥Ü¹Ï¤ù
(¹Ï¤ùÀx¦s¦bD:\catalogue¸Ì)