¤£ª¾¹D¹Ï¤ùªº¦WºÙ ¡A¨º­n¦p¦ó¿ï¨ì¨º±i¹Ï¡H

jazzcarr

°²³]A1 Àx¦s®æ¤¤©ñ¤F¤@±i¸òÀx¦s®æ¤@¼Ë¤j¤pªº¹Ï¤ù¡A ¤£ª¾¹D¹Ï¤ùªº¦WºÙ ¡A¨º­n¦p¦ó¿ï¨ì¨º±i¹Ï¡A¥H¶i¦æ«á­±ªº¨ä¥L°Ê§@¡H

GBKEE

¦^´_ 1# jazzcarr

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Picture, p As Picture
   
4.     For Each E In ActiveSheet.Pictures
   
5.         If E.TopLeftCell.Address(0, 0) = "A1" Then 'Address = "$A$1"
   
6.             With Range("A10")
   
7.                 E.ShapeRange.LockAspectRatio = msoFalse
   
8.                 E.Top = .Top  '¦ì¸m A1ªº¹Ï¤ù,²¾°Ê¨ì A10
   
9.                 E.Left = .Left
   
10.                 E.Width = .Width '
    
11.                 E.Height = .Height
    
12.             End With
    
13.         End If
    
14.     Next
    
15. End Sub

½Æ»s¥N½X

jazzcarr

¤j·P®¦ ÁÂÁ¶W¯Åª©¥D