Hsieh

¦^´_ 1# 317

«ö¤@¤U©ñ¤j¡A¦A«ö¤@¤UÁÙ­ì
    ShowPicture.zip (190.74 KB)

¤U¸ü¦¸¼Æ: 68

2010-12-20 13:14

Hsieh

¦^´_ 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

Hsieh

¦^´_ 6# 317


    ´¡¤J¹Ï¤ù«á¦sÀɦA¶}±ÒÀÉ®×´ú¸Õ¬Ý¬Ý

Hsieh

¦^´_ 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)

¤U¸ü¦¸¼Æ: 40

2010-12-22 12:58

Hsieh

¦^´_ 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

Hsieh

¦^´_ 16# 317


    ¨S¿ù¥ÎType°µ§PÂ_¬O­Ó¥i¦æªº¤èªk