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

[µo°Ý] excel ´¡¤J¹Ï¤ù«á,§O¥x¹q¸£µLªk¶}±Ò

[µo°Ý] excel ´¡¤J¹Ï¤ù«á,§O¥x¹q¸£µLªk¶}±Ò

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-3-9 10:58 ½s¿è
  1. For Each h In arr2
  2.         '´¡¤J¹Ï¤ù
  3.        Set MyPic = ActiveSheet.Pictures.Insert(myfloder & "PIC\" & E & "\" & h)
  4.        '¬°¦ó¤W­±ªº¤è¦¡¥u­n´«¤F­ì©l¹Ï¤ùªº¦ì¸m´N·|µLªkÅã¥Ü¹Ï¤ù
  5.        '­n§ï¬°¦óºØCODE¤~¥i¥H¯u¥¿ªº½Æ»s·Ó¤ù¦ÜEXCEL?
  6. '------------------------------¤U­±¬O§Ú¥Ø«eªº¸É±Ï¤è¦¡----------------------------
  7.        Num = Num + 1
  8.        ActiveSheet.Shapes.Range(Array("Picture " & Num)).Select
  9.        Selection.Copy
  10.                                     
  11.        ActiveSheet.Pictures.Paste.Select
  12.        ActiveSheet.Shapes.Range(Array("Picture " & Num)).Delete
  13.        Num = Num + 1
  14. '-----------------------------------------------------------------------
  15.                             Next
½Æ»s¥N½X
PKKO

¦^´_ 1# PKKO


    §Ú³£¥ÎADD¤è¦¡©ñ¤J
¨Ò¦p:
¤u§@ªí3.Shapes.AddPicture ThisWorkbook.Path & "1.png", True, True, 70, 360, 230, 145

TOP

¦^´_ 2# lpk187


    ³oºØ¤è¦¡­n¦p¦ó"¨Æ¥ý"±oª¾¹Ï¤ùªºªø»P¼e©O?
ÁקK¼vÅT¤F·Ó¤ù­ì¥»ªº¤ñ¨Ò!
PKKO

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD