ªð¦^¦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 : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD