GBKEE

¦^´_ 10# c_c_lai
³o¸Ì¥i¥H°Ñ¦Ò
§AªþÀɪº¬O ªí³æªºScrollBar

1. Sub ±²¶b7()    'ªí³æªºScrollBar ¶·«ü©w¥¨¶°
   
2.     Dim S As Object
   
3.     Set S = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
   
4.     MsgBox S.Name
   
5.     MsgBox S.Value
   
6.     MsgBox S.Max
   
7. End Sub
   
8. Sub ±²¶b7A()    'ªí³æªºScrollBar ¶·«ü©w¥¨¶°
   
9.     MsgBox ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Name
   
10.     MsgBox ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value
    
11.     MsgBox ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Max
    
12. End Sub

½Æ»s¥N½X

1. Private Sub ScrollBar1_Change() '±±¨î¤u¨ã½c ScrollBar1ª«¥óªºµ{§Ç
   
2.     MsgBox ScrollBar1.Name
   
3.     MsgBox ScrollBar1.Value
   
4.     MsgBox ScrollBar1.Max
   
5. End Sub

½Æ»s¥N½X

¦p¹Ï

¤U¸ü (107.5 KB)

2012-5-15 16:54