Hsieh

1. Sub Ex()
   
2. Dim A As Range
   
3. On Error Resume Next
   
4. Sheet1.Pictures.Delete
   
5. For Each A In Selection
   
6.   With ActiveSheet.Pictures.Insert(A.Text)
   
7.   i = i + 1
   
8.   If i <> ActiveSheet.Pictures.Count Then MsgBox "¹Ï¤ù¥¼¥[¤J,½ÐÀˬd¸ô®|" & A: i = i - 1
   
9.      .Top = A.Top
   
10.      .Left = A.Offset(, 1).Left
    
11.      .Height = 120
    
12.      .Width = 120
    
13.      A.RowHeight = .Height
    
14.      A.Offset(, 1).ColumnWidth = .Width / 5.6
    
15.   End With
    
16. Next
    
17. End Sub

½Æ»s¥N½X