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

[µo°Ý] ±N¸ê®Æ§¨¤ºªº¹ÏÀɨ̧ǶK¨ìexcel

[µo°Ý] ±N¸ê®Æ§¨¤ºªº¹ÏÀɨ̧ǶK¨ìexcel

§Ú­n±N¸ê®Æ§¨¤ºªº¹ÏÀÉ,¥þ³¡Âà¨ìexcel ¤º,¸Ô²Ó°ÝÃD¦p¹Ï©Ò¥Ü:

¥»©«³Ì«á¥Ñ basarasy ©ó 2010-7-31 10:42 ½s¿è

¦^´_ 1# jntseng

³o­Ó¬OGBKEE¤j¤j±Ðªº.
  1. Sub Ex()
  2.     Dim Ps, Pc, A
  3.     With Application.FileDialog(msoFileDialogOpen)
  4.         .Title = "´M§ä¹Ï¤ùÀÉ"
  5.         .AllowMultiSelect = True   '¦h­«¿ï¨úÀÉ®×
  6.         .ButtonName = "¶}±Ò¹Ï¤ùÀÉ"
  7.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
  8.         .FilterIndex = 1
  9.         If .Show = False Then
  10.             MsgBox "¨S¦³¿ï¾Ü¹Ï¤ùÀÉ ???": Exit Sub
  11.         Else
  12.            Set Ps = .SelectedItems
  13.         End If
  14.     End With
  15.     With ActiveSheet
  16.         Set A = .[A1]
  17.         .Pictures.Delete
  18.         .[A:A].Clear
  19.     End With
  20.     For Each Pc In Ps
  21.         With ActiveSheet.Pictures.Insert(Pc)
  22.            
  23.             .Height = 120
  24.             .Width = 120
  25.             .Left = A.Left
  26.             .Top = A.Top
  27.         End With
  28.         Set A = A.Offset(1)
  29.     Next
  30. End Sub
½Æ»s¥N½X
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1
¥H¤W¬õ¦â²ÊÅé¦r©Ò¥Nªíªº·N¸q¬O¤°»ò©O?

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2010-8-1 10:27 ½s¿è

¦^´_ 3# jntseng


    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1

    .Filters.Add ©ñ¦b¤U©Ô¦Cªíªº²Ä1¦ì
     .filterindex  ¹w³]Åã¥Ü²Ä´X¦ì

¦p
    .Filters.Add "Images", "*.gif ", 1
   .Filters.Add "Images", "*.jpg; *.jpeg ", 2
   .FilterIndex = 2
´N·|¥X


­È±o¯d·Nªº¬O±Æ¦ì¬O«á¨Ó¥ý¤Wªº
¦pªG¬O
    .Filters.Add "Images", "*.gif ", 1
   .Filters.Add "Images", "*.jpg; *.jpeg ", 1
   .FilterIndex = 2
¦Cªí´N·|Åܦ¨
*.jpg; * jpeg
*.gif
¹w³]¿ï¤W *.gif
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 4# kimbal
ÁÂÁ«ü¾É,¤wÁA¸Ñ©Ò»¡ªº¤º®e

TOP

¦^´_ 4# kimbal
½Ð°Ý§Ú¿ï¾Üªº¹Ï¤ù,¦³¨S¦³¿ìªk¥i¥H·Ó¿ïªº¶¶§Ç±N¹Ï¤ù¨Ì¶¶§Ç¶K¨ìexcel ¤W©O?

TOP

¦^¶Çªº®É­Ô¨S¦³¦^¶Ç¦¸§Ç.

¥t¤@­Ó¤èªk¬O¨C¦¸¥u¿ï¤@­ÓÀÉ
.AllowMultiSelect = false   
ª½¨ì«öcancel¬°¤î
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 7# kimbal
ÁÂÁ«ü¾É

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD