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

[µo°Ý] ¥¨¶°°}¦Cªºµ{¦¡

¦^´_ 6# PJChen

°õ¦æ¥H¤U¥N½X´Nª¾¹D¤F
  1. Sub nn()
  2. For Each pic In ¤u§@ªí8.Pictures
  3. MsgBox pic.Index
  4. MsgBox pic.Name
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-10-12 23:05 ½s¿è

¦^´_ 9# PJChen
  1. Sub nn()
  2. For Each pic In ¤u§@ªí8.Pictures
  3. MsgBox "¹Ï¤ùªº§Ç¸¹  " & pic.Index '¹Ï¤ùªº§Ç¸¹
  4. MsgBox "¹Ï¤ùªº¦WºÙ  " & pic.Name  '¹Ï¤ùªº¦WºÙ
  5. Next
  6. End Sub
½Æ»s¥N½X
©pªºµ{¦¡½X¤¤tryµ{§Ç¨Ï¥ÎPictures(1).Copy³o·|«ü©w¹Ï¤ù§Ç¸¹
try_2µ{§Ç¨Ï¥ÎPictures("Picture 7").Select³o·|«ü©w¹Ï¤ù¦WºÙ
play.gif
2012-10-12 23:05
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-10-13 00:37 ½s¿è

¦^´_ 13# PJChen

Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
³o¬O«ü©w¦WºÙªº¼gªk
³oÃþ¤u§@§Ú·|«Øij¹ÏÀɪ½±µ¶K¤J¤£»Ý±N¹Ï¤ù¥ý©ñ¦b¤u§@ªí¦A¥h½Æ»s
°µ¤@­Ó²³æ½d¨Ò©p°Ñ¦Ò¬Ý¬Ý
    ñ¦WÀÉ.rar (33.19 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 35# PJChen

§ó¦Wµ{¦¡¨Ã¨S¿ù»~°Ú!
¤£ª¾¹D§A¬O¦p¦ó°õ¦æ
¤W¶ÇªºÀÉ®×½T¹ê¥i¥H°õ¦æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD