|
-------------------Ö£¼ÒÁú±àÒïÓÚMS OFFICE¿ª·¢Îĵµ
ɾ³ý²Ëµ¥ºÍ¹¤¾ßÀ¸
Äã¿ÉÒÔͨ¹ýÔÚÏÖÓеŤ¾ßÀ¸ÉÏÓÒ»÷£¬ÔÚµ¯³öµÄ×Ô¶¨Òå¶Ô»°¿òÖÐɾ³ý¹¤¾ßÀ¸ºÍ²Ëµ¥À¸»òÕßͨ¹ýVBAɾ³ýËûÃÇ£¬µ«ÊÇÄãÖ»ÄÜͨ¹ýVBAÀ´É¾³ýµ¯³öʽ²Ëµ¥À¸£¬ÓÃCommandBars¼¯ºÏÖеÄDelete·½·¨´Óµ±Ç°CommandBars¼¯ºÏÖÐɾ³ýÒ»¸öÒѾ´æÔڵĵ¯³öʽ²Ëµ¥À¸£¬¿ÉÒԲο¼ÏÂÃæµÄ·½·¨£º
Function CBDeleteCBControl(strCBarName As String, _
strCtlName As String)
On Error Resume Next
Application.CommandBars(strCBarName).Controls(strCtlName).Delete
End Function
×¢Ò⣺Èç¹ûÄãҪɾ³ýµÄ¹¤¾ßÀ¸Ã»ÓÐÔÚ²ÎÊýstrCBarNameÖÐÖ¸¶¨£¬ÔÚÉÏÃæµÄº¯ÊýÖн«²»»á³öÏÖ´íÎóÌáʾ£¬ÊÇͨ¹ýOn Error Resume NextÕâÒ»¾ä¼ÌÐøÍùÏÂÖ´ÐС£
´ýÍê³ÉƪÕ£º
·ÀÖ¹Óû§ÐÞ¸Ä×Ô¶¨Òå²Ëµ¥ºÍ¹¤¾ßÀ¸
¸öÐÔ»¯²Ëµ¥ºÍ¹¤¾ßÀ¸
Ôڲ˵¥ºÍ¹¤¾ßÀ¸ÖÐʹÓð´Å¥Í¼Ïñ
²Ëµ¥ºÍ¹¤¾ßÀ¸µÄʹÓÃ
1.Ôö¼ÓÃüÁî¿Ø¼þ
2.ÏÔʾºÍ½ûÓÃÃüÁî¿Ø¼þ
3.ÃüÁî¿Ø¼þµÄ״̬
²Ëµ¥ºÍ¹¤¾ßÀ¸µÄʼþ
|