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

¤@­Ó©ñ¤j¹Ï¤ù°ÝÃD

hsieh¤j¤j:
¤j¤j¯uªº«Ü±·, Á¹L..

TOP

Hsiehª©¥D¤j¤j,¦n
´«¤F07excel, µ{¦¡¨Sªk¹B¦æ, ¦ó¸Ñ..
¦b03¤¤¬O¨S¦³°ÝÃD¦s¦b, ½Ð¤j¤j«ü¾É, ªþ¥ó,
ÁÂÁÂ!!
Book1.rar (39.04 KB)

TOP

¤p©f¯uªº§Æ±æ¯àª¾¹D­ì¦], ²{¦A«×¾ã²zÀɮפW¶Ç, ±æ¤j¤j­Ì¯à¨ó§U, ÁÂÁÂ!!
ShowPicture.rar (249.28 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-10-23 16:41 ½s¿è

¦^´_ 13# 317

¦b³o¥y
If sh.Name Like "Picture*"
¦]¬°§A´¡¤Jªº¹Ï¤ù¦WºÙ¬O¤¤¤å"¹Ï¤ù3"
©Ò¥H¨S¦³«ü©w¥¨¶°µ¹¥L
  1. Private Sub Workbook_Open()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. Dim sh As Shape
  4. For Each sh In Sheet1.Shapes
  5.    If sh.Name Like "Picture*" Or sh.Name Like "¹Ï¤ù*" Then sh.OnAction = "nn": dic(sh.Name & "h") = sh.Height: dic(sh.Name & "w") = sh.Width
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·Q¤£¨ì2007¦³³o¼Ëªº°ÝÃD
­Y¥Î If sh.Type = 13 Then¡K©O¡H³o¼ËÁÙ¦³°ÝÃD¶Ü¡H

TOP

°J¤ßÁ¹L两¦ìª©¥D¤j¤j,
¯¬Ä@§Ö¼Ö, ·P®¦, ÁÂÁÂ!!

TOP

¦^´_ 16# 317


    ¨S¿ù¥ÎType°µ§PÂ_¬O­Ó¥i¦æªº¤èªk
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD