GBKEE

¦^´_ 1# HSIEN6001

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim P As Pictures, I As Integer, H1, H2
   
4.     Set P = Worksheets("Á`ªí").Pictures
   
5.     For I = 1 To P.Count
   
6.         With P(I)
   
7.             H1 = .TopLeftCell.Height
   
8.             H2 = .Height
   
9.             .Top = .TopLeftCell.Top + (H1 - H2) / 2   '¹Ï¤ù,««ª½¸m¤¤
   
10.             H1 = .TopLeftCell.Width
    
11.             H2 = .Width
    
12.             .Left = .TopLeftCell.Left + (H1 - H2) / 2 '¹Ï¤ù,¤ô¥­¸m¤¤
    
13.         End With
    
14.     Next
    
15. End Sub

½Æ»s¥N½X