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

[¤À¨É] ±N¥¨¶°¥[¦b·Æ¹«ªº¥kÁä¿ï³æ¤¤

[¤À¨É] ±N¥¨¶°¥[¦b·Æ¹«ªº¥kÁä¿ï³æ¤¤

¦U¦ì¦n
¥H¤U¤À¨É¡A¦p¦ó±N¥¨¶°¥[¦b·Æ¹«ªº¥kÁä¿ï³æ¤¤
±N¥H¤U¥N½X¶ñ¤Jthisdocument¤¤
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Application.CommandBars("text").Reset '±N¥kÁä«ì´_¦Ü­ì©lª¬ºA
  3. End Sub
  4. Private Sub Workbook_Open()
  5. On Error Resume Next
  6. Application.CommandBars("text").Reset '±N¥kÁä«ì´_¦Ü­ì©lª¬ºA
  7. With Application.CommandBars("text").Controls.Add(Type:=msoControlButton, before:=1)
  8. .Caption = "¨Ï¥ÎªÌ¦Û­q¥¨¶°"    'Åã¥Ü©ó¥kÁä¿ï³æªº¦WºÙ
  9. .FaceId = 202    '²Å¸¹¹Ï®×
  10. .OnAction = "test"     '«ü©w°õ¦æªº¥¨¶°¦WºÙ
  11. End With
  12. End Sub
½Æ»s¥N½X
½Æ»s¥N½X
¨ä¤¤Ãö©ó ²Å¸¹¹Ï®× ªº¸¹½X¥i°Ñ¦Ò¥H¤Uºô§}
http://www.excelpx.com/thread-206527-1-1.html

¤W­±ªºµ{¦¡¤j·§ªº»¡©ú¦p¤U

1>¦b¶}±ÒwordÀÉ«á
    ¥ý±N¥kÁä¿ï³æ«ì´_¬°­ì©l³]©w
    ±N©Ò¦Û­qªº¥kÁä¿ï³æ¤º®e¥[¸ü©ó¥kÁä¿ï³æ

2>¦bÀÉ®×Ãö³¬®É
   ±N¥kÁä¿ï³æ«ì´_¬°­ì©l³]©w(¤£µM,¸Ó³]©w·|¤@ª½¦s¦b©ó¦Uword¤¤)

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