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

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

¦^´_ 31# PJChen
³oµ{¦¡¶Ü? ¦b2003ª©°õ¦æ¨S°ÝÃD
  1. Sub change_Signed()
  2. With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
  3.         For xi = 1 To .Pictures.Count
  4.             .Pictures(xi).Name = "ñ¦W" & xi
  5.         Next
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 33# PJChen
¨º¶·¦³°ª©ó2003ª©¥»ªÌ¨Ó¸Ñ¤F

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD