ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¦bEXCEL 2010ª© ´¡¤J¾ã­Ó¸ê®Æ§¨ªº¹Ï¤ù

¦p¦ó¦bEXCEL 2010ª© ´¡¤J¾ã­Ó¸ê®Æ§¨ªº¹Ï¤ù

¦U¦ì¤j¤j:
¦bEXCEL 2003ª© ¥i¥H°õ¦æ´¡¤J¾ã­Ó¸ê®Æ§¨ªº¹Ï¤ù, ¦ý¦bEXCEL 2010¤wµLªk°õ¦æ, ­n¦p¦ó§ï¼g©O? ÁÂÁÂÀ°¦£!

Sub PictureResize()
Application.ScreenUpdating = False
Dim p As Object
Dim i%, k&, h&
With Application.FileSearch
    .LookIn = "D:\my Documents\My Pictures"  '¸ê®Æ§¨¦Û¤v³]
    .FileType = msoFileTypeAllFiles
    .Filename = "*.jpg"
    .Execute

    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
          Set p = ActiveSheet.Pictures.Insert(.FoundFiles(i))
          p.Left = Cells(i, 1).Left
          p.Top = Cells(i, 1).Top
          p.Width = Cells(i, 1).Width
          p.Height = Cells(i, 1).RowHeight
        Next
    End If
End With
Set p = Nothing
Application.ScreenUpdating = True
End Sub

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ´£¨ÑÄ_¶Q¸ê®Æ¡C

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD