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

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

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

¤j¤j­Ì, ¦n
¤p©f¦³¤@©ñ¤j¹Ï¤ù°ÝÃD, Àµ½Ð¤j¤j­Ì¨ó§U, ²{§âÀɮפW¶Ç, ¤º¦³©ú²Ó»¡©ú, ÁÂÁÂ!!
Book1.rar (181.08 KB)

¦^´_ 1# 317

«ö¤@¤U©ñ¤j¡A¦A«ö¤@¤UÁÙ­ì
    ShowPicture.zip (190.74 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

hsieh¤j¤j,
ÁÂÁ¤j¤j¸Ñ¨M¤p©f°ÝÃD, ¦ý¦³¤@¤p°ÝÃD, §Ú­ì¥ý¤u§@ªí¤¤¦bThis Workbook¦³¤@¤pµ{¦¡
Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub Workbook_Open()
Set dic = CreateObject("Scripting.Dictionary")
Dim sh As Shape
For Each sh In Sheet1.Shapes
   If sh.Name Like "Picture*" Then sh.OnAction = "nn": dic(sh.Name & "h") = sh.Height:: dic(sh.Name & "w") = sh.Width
Next
End Sub

两­Óµ{¦¡¤¤³£¥Î¤WPrivate Sub Workbook_Open()
¦p¦ó§â2­Óµ{¦¡¦X¨Ö, ½Ð¤j¤j«ü¾É, ÁÂÁÂ!!

TOP

¦^´_ 3# 317
ª½±µ¦X¨Ö¤£½Ä¬ðªü
  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*" Then sh.OnAction = "nn": dic(sh.Name & "h") = sh.Height:: dic(sh.Name & "w") = sh.Width
  6. Next
  7. UserForm1.Show
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j¤j,
«Ý©ú¤Ñ§â¤â¤Wªº¤u§@ªí¾ã²z, ¬°·s¤@¦~¦Ó§V¤O, ·PÁ¤j¤j¨ó§U¸Ñ,
·s¦~§Ö¨ì, ¯¬Ä@¤j¤j·s¬K§Ö¼Ö, ¸U¨Æ¶¶´º..

TOP

¦^´_ 2# Hsieh
¤j¤j:¤È¦w
µo²{¤@­Ó°ÝÃD, ¦pªG¦bÀɮפº´¡¤J·sªº¹Ï¤ù, µ¹¤©«ü©w¥¨¶°, ²zÀ³¬O, «ö¤@¤U©ñ¤j, ¦A«ö¤@¤U¦^´_­ìª¬, ¦ý·í«ü©w¥¨¶°«á, «ö¤@¤U, ¹Ï¤ù¤£¨£¤F, ¬O¦ó­ì¦], ©Î¤p©fµ{§Ç¤W¿ù»~, ½Ð¤j¤j¨ó§U, ÁÂÁÂ!!

TOP

¦^´_ 6# 317


    ´¡¤J¹Ï¤ù«á¦sÀɦA¶}±ÒÀÉ®×´ú¸Õ¬Ý¬Ý
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

hsieh¤j¤j,¦­±á
¬Q¤Ñ¦]¨Æ©¹´ä, ¤µ¦­¤~¦^¨ì®a¤¤, ¶}¾÷¬Ý¨ì¤j¤j¦^ÂÐ, §Y®É¸ÕÅç, ­ì¨ÓµL¶·¦A«ü©w¥¨¶°, ÁÂÁ¤j¤j,
¤¤°ê¤H±`»¡, ¥V¤j¹L¦~, ¤µ¤Ñ¥V¦Ü, ¯¬Ä@¤H¤ë两¥þ..

TOP

¤j¤j,
³o­ÓÀɮ׫ܱ·, ÂIô¤@¤U©ñ¤j, ÂIô¤@¤UÁY¤p, ¤p§Ì¤@ª½¥H¬°ºô­¶¤~¯à°µ¨ì³o®ÄªG, ­ì¨Óexcelµ{¦¡½s¼g¤]¯à°µ¨ì³o®ÄªG, ¤j¤j¯u±·, ¦ý¤p§Ì¦³°ÝÃD¤@°Ý, ·íÂIô©ñ¤j, ¹Ï¤ù¯à§_³]©w¥ª¤â­±, ¦p¯à³]©w©ó¥ª¤W¨¤´N§ó±·, ·P®¦

TOP

¦^´_ 9# ©P¤j°¶

©ñ¤jÅã¥Ü©óA1Àx¦s®æ
  1. Private Sub Workbook_Open()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. Dim sh As Shape
  4. For Each sh In Sheet1.Shapes
  5. With sh
  6.    If .Name Like "Picture*" Then .OnAction = "nn": dic(.Name) = Array(.Top, .Left, .Height, .Width)
  7. End With
  8. Next
  9. End Sub
½Æ»s¥N½X
¤@¯ë¼Ò²Õ
  1. Public dic
  2. Sub nn()
  3. With Sheet1.Shapes(Application.Caller)
  4. If .Left = ActiveSheet.[A1].Left Then
  5. .Top = dic(.Name)(0)
  6. .Left = dic(.Name)(1)
  7. .Height = dic(.Name)(2)
  8. .Width = dic(.Name)(3)
  9. Else
  10. .Height = dic(.Name)(2) * 3
  11. .Width = dic(.Name)(3) * 3
  12. .Top = ActiveSheet.[A1].Top
  13. .Left = ActiveSheet.[A1].Left
  14. .ZOrder msoBringToFront
  15. End If
  16. End With
  17. End Sub
½Æ»s¥N½X
ShowPicture.zip (196.18 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD