Modifying Menus & Toolbars in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Modifying Menus & Toolbars in Excel VBA in Hindi
Table of Contents
Modifying Menus & Toolbars in Excel VBA in Hindi
Introduction to Modifying Menus & Toolbars in Excel VBA in Hindi
Excel VBA рдореЗрдВ рд╣рдо рд╕рд┐рд░реНрдл cells рдпрд╛ formulas рд╣реА automate рдирд╣реАрдВ рдХрд░ рд╕рдХрддреЗ, рдмрд▓реНрдХрд┐ рд╣рдо Excel рдХреЗ menus рдФрд░ toolbars рдХреЛ рднреА customize рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рд╣реИ рдХрд┐ рд╣рдо рдЕрдкрдиреЗ рд╣рд┐рд╕рд╛рдм рд╕реЗ Excel рдХреЗ interface рдХреЛ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВ рддрд╛рдХрд┐ рд╡рд╣ рд╣рдорд╛рд░реЗ рдХрд╛рдо рдХреЛ рдФрд░ рдЖрд╕рд╛рди рдмрдирд╛ рд╕рдХреЗред рдпрд╣ рдЦрд╛рд╕ рддреМрд░ рдкрд░ рддрдм рдмрд╣реБрдд рдХрд╛рдо рдЖрддрд╛ рд╣реИ рдЬрдм рд╣рдо рдХрд┐рд╕реА рдХрдВрдкрдиреА рдпрд╛ project рдХреЗ рд▓рд┐рдП рдПрдХ specific tool рдмрдирд╛ рд░рд╣реЗ рд╣реЛрддреЗ рд╣реИрдВ рдФрд░ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдХрд┐ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЛ рд╕рд┐рд░реНрдл рд╡рд╣реА рдЪреАрдЬрд╝реЗрдВ рджрд┐рдЦрд╛рдИ рджреЗрдВ рдЬреЛ рдЬрд╝рд░реВрд░реА рд╣реЛрдВред
Menus & Toolbars рдХреЛ customize рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП Excel VBA рдореЗрдВ рдПрдХ special object рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕реЗ CommandBar рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕реА рдХреА рдорджрдж рд╕реЗ рд╣рдо рдкреБрд░рд╛рдиреЗ classic Excel versions (Excel 2003 рдФрд░ рдЙрд╕рд╕реЗ рдкрд╣рд▓реЗ) рдХреЗ menus рдФрд░ toolbars рдХреЛ manage рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдирдП versions (Excel 2007 рд╕реЗ рдЖрдЧреЗ) рдореЗрдВ Ribbon UI рдЖ рдЧрдпрд╛ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдереЛрдбрд╝реА advanced technique рд▓рдЧрддреА рд╣реИ, рд▓реЗрдХрд┐рди CommandBar object рдЖрдЬ рднреА backward compatibility рдХреЗ рд▓рд┐рдП useful рд╣реИред
Understanding the CommandBar object in Modifying Menus & Toolbars in Hindi
CommandBar object Excel рдХреЗ toolbars рдФрд░ menus рдХреЛ represent рдХрд░рддрд╛ рд╣реИред VBA рдореЗрдВ рдЬрдм рд╣рдо рдХрд┐рд╕реА menu рдпрд╛ toolbar рдХреЛ access рдпрд╛ modify рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рд╣рдо CommandBars collection рд╕реЗ рдХрд╛рдо рд▓реЗрддреЗ рд╣реИрдВред рдпрд╣ collection Excel рдореЗрдВ рдореМрдЬреВрдж рд╕рднреА command bars рдХреЛ contain рдХрд░рддрд╛ рд╣реИред
- CommandBars: рдпрд╣ рдПрдХ collection рд╣реИ рдЬрд┐рд╕рдореЗрдВ Excel рдХреА рд╕рд╛рд░реА command bars (toolbars рдФрд░ menus) рд╣реЛрддреА рд╣реИрдВред
- CommandBar: рдпрд╣ individual toolbar рдпрд╛ menu рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕реЗ рд╣рдо access рдХрд░рддреЗ рд╣реИрдВред
- CommandBarControls: рдпреЗ command bar рдХреЗ рдЕрдВрджрд░ рдореМрдЬреВрдж individual buttons, dropdowns, рдФрд░ рдЕрдиреНрдп items рд╣реЛрддреЗ рд╣реИрдВред
CommandBar object рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рддреЗ рд╕рдордп рд╣рдо рдирд┐рдореНрди properties рдФрд░ methods рдХрд╛ use рдХрд░рддреЗ рд╣реИрдВ:
Application.CommandBars("Standard")
тАУ Standard toolbar рдХреЛ access рдХрд░рддрд╛ рд╣реИредCommandBar.Visible = True/False
тАУ рдХрд┐рд╕реА toolbar рдХреЛ рджрд┐рдЦрд╛рдиреЗ рдпрд╛ рдЫреБрдкрд╛рдиреЗ рдХреЗ рд▓рд┐рдПредCommandBar.Controls.Add
тАУ рдирдпрд╛ button рдпрд╛ control рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдПредCommandBar.Delete
тАУ рдХрд┐рд╕реА custom toolbar рдХреЛ рд╣рдЯрд╛рдиреЗ рдХреЗ рд▓рд┐рдПред
Accessing existing toolbars using VBA in Modifying Menus & Toolbars in Hindi
рдЕрдм рд╣рдо рд╕реАрдЦреЗрдВрдЧреЗ рдХрд┐ Excel VBA рд╕реЗ рдкрд╣рд▓реЗ рд╕реЗ рдореМрдЬреВрдж toolbars рдХреЛ рдХреИрд╕реЗ access рдХрд┐рдпрд╛ рдЬрд╛рдП рдФрд░ рдЙрдирдореЗрдВ рдХреИрд╕реЗ рдмрджрд▓рд╛рд╡ рдХрд┐рдП рдЬрд╛рдПрдВред рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╣рдо custom buttons рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВ, extra menus рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВ рдпрд╛ рдХрд┐рд╕реА рднреА toolbar рдХреЛ hide/show рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
1. рдХрд┐рд╕реА Existing Toolbar рдХреЛ Access рдХрд░рдирд╛
Sub ShowStandardToolbar()
Application.CommandBars("Standard").Visible = True
End Sub
рдпрд╣ рдХреЛрдб Excel рдХреЗ Standard toolbar рдХреЛ visible рдХрд░рддрд╛ рд╣реИред рдпрджрд┐ рдпрд╣ toolbar рдкрд╣рд▓реЗ рд╕реЗ visible рд╣реИ, рддреЛ рдХреБрдЫ рдирд╣реАрдВ рд╣реЛрдЧрд╛ред рдЗрд╕реА рддрд░рд╣ рд╣рдо "Formatting", "Chart", рдЖрджрд┐ toolbars рдХреЛ рднреА access рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
2. Toolbar рдХреЛ Hide рдХрд░рдирд╛
Sub HideFormattingToolbar()
Application.CommandBars("Formatting").Visible = False
End Sub
рдпрд╣ code Formatting toolbar рдХреЛ hide рдХрд░ рджреЗрддрд╛ рд╣реИред рдпрд╣ рддрдм рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдЬрдм рд╣рдо рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдХрд┐ user interface clean рд░рд╣реЗ рдпрд╛ рдХреЗрд╡рд▓ custom tools рджрд┐рдЦрд╛рдИ рджреЗрдВред
3. Custom Toolbar рдмрдирд╛рдирд╛
Sub CreateCustomToolbar()
Dim myBar As CommandBar
On Error Resume Next
Application.CommandBars("MyToolbar").Delete
On Error GoTo 0
Set myBar = Application.CommandBars.Add(Name:="MyToolbar", Position:=msoBarTop, Temporary:=True)
With myBar.Controls.Add(Type:=msoControlButton)
.Caption = "My Button"
.Style = msoButtonCaption
.OnAction = "MyMacro"
End With
myBar.Visible = True
End Sub
рдЗрд╕ code рд╕реЗ рдПрдХ рдирдпрд╛ toolbar "MyToolbar" рдирд╛рдо рд╕реЗ рдмрдирддрд╛ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдПрдХ button рд╣реЛрддрд╛ рд╣реИред рдЬрдм рд╣рдо рдЗрд╕ button рдкрд░ click рдХрд░реЗрдВрдЧреЗ, рддреЛ "MyMacro" рдирд╛рдо рдХрд╛ macro рдЪрд▓реЗрдЧрд╛ред
4. Toolbar рдХреЛ Delete рдХрд░рдирд╛
Sub DeleteCustomToolbar()
On Error Resume Next
Application.CommandBars("MyToolbar").Delete
On Error GoTo 0
End Sub
рдпрд╣ code "MyToolbar" рдХреЛ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рд╣рдЯрд╛ рджреЗрддрд╛ рд╣реИред рдЗрд╕рд╕реЗ рдпрд╣ toolbar рдлрд┐рд░ Excel рдореЗрдВ рдирд╣реАрдВ рджрд┐рдЦреЗрдЧрд╛ рдЬрдм рддрдХ рд╣рдо рдЙрд╕реЗ рджреБрдмрд╛рд░рд╛ create рди рдХрд░реЗрдВред
Difference between Menu Bars and Toolbars in Modifying Menus & Toolbars in Hindi
Menu Bar рдФрд░ Toolbar рджреЛрдиреЛрдВ Excel рдХреЗ user interface рдХрд╛ рд╣рд┐рд╕реНрд╕рд╛ рд╣реЛрддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЗрди рджреЛрдиреЛрдВ рдореЗрдВ рдХреБрдЫ рдореВрд▓рднреВрдд рдЕрдВрддрд░ рд╣реЛрддреЗ рд╣реИрдВред рдиреАрдЪреЗ рдЯреЗрдмрд▓ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдЗрдирдХрд╛ рдЕрдВрддрд░ рд╕рдордЭрд┐рдП:
Feature | Menu Bar | Toolbar |
---|---|---|
рд╕реНрдерд╛рди (Position) | рдКрдкрд░ horizontal line рдореЗрдВ рд╣реЛрддрд╛ рд╣реИ (File, Edit, View, рдЖрджрд┐) | Menu bar рдХреЗ рдиреАрдЪреЗ рд╣реЛрддрд╛ рд╣реИ |
Items рдХрд╛ рдкреНрд░рдХрд╛рд░ | Drop-down menus рдЬрд┐рд╕рдореЗрдВ options рд╣реЛрддреЗ рд╣реИрдВ | Buttons рд╣реЛрддреЗ рд╣реИрдВ рдЬреЛ рд╕реАрдзреЗ command run рдХрд░рддреЗ рд╣реИрдВ |
Customization | Limited customization | Buttons add, remove, reposition рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ |
Use in VBA | CommandBars("Worksheet Menu Bar") рд╕реЗ access рд╣реЛрддрд╛ рд╣реИ | CommandBars("Standard"), рдЖрджрд┐ рд╕реЗ access рд╣реЛрддрд╛ рд╣реИ |
Excel VBA рдореЗрдВ рдЖрдк рджреЛрдиреЛрдВ рдХреЛ customize рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рд▓реЗрдХрд┐рди рдЕрдзрд┐рдХрддрд░ рдЙрдкрдпреЛрдЧ Toolbar customization рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдХреНрдпреЛрдВрдХрд┐ toolbar рдореЗрдВ рд╣рдо custom buttons, images, actions рдЖрджрд┐ рдЖрд╕рд╛рдиреА рд╕реЗ рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред
рдХреБрдЫ рдорд╣рддреНрд╡рдкреВрд░реНрдг рдмрд╛рддреЗрдВ
- CommandBars рдХрд╛ рдЙрдкрдпреЛрдЧ Excel 2003 рдФрд░ рдЙрд╕рд╕реЗ рдкрд╣рд▓реЗ рдХреА versions рдореЗрдВ рдЬреНрдпрд╛рджрд╛ рд╣реЛрддрд╛ рдерд╛ред Excel 2007 рдФрд░ рдЖрдЧреЗ рдХреЗ versions рдореЗрдВ Ribbon UI рдЖ рдЧрдпрд╛ рд╣реИред
- рдлрд┐рд░ рднреА CommandBar object рдЖрдЬ рднреА рдореМрдЬреВрдж рд╣реИ рдФрд░ рдХреБрдЫ рдЪреАрдЬреЛрдВ рдХреЛ control рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧреА рд╣реИред
- Toolbar customization рддрдм рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдк рдХрд┐рд╕реА fixed рдХрд╛рд░реНрдп рдХреЛ repeat рдХрд░рддреЗ рд╣реИрдВ рдФрд░ рдЙрд╕рдХреЗ рд▓рд┐рдП shortcut рдмрдирд╛рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред
- Menu Bar customization рдереЛрдбрд╝рд╛ complex рд╣реЛрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдПрдХ рдмрд╛рд░ рд╕рдордЭ рдореЗрдВ рдЖ рдЬрд╛рдП рддреЛ рдпрд╣ рднреА рдЙрддрдирд╛ рд╣реА powerful рд╣реЛрддрд╛ рд╣реИред
Useful VBA Commands Summary
Application.CommandBars("Standard").Visible = True
тАУ Standard toolbar рдХреЛ рджрд┐рдЦрд╛рдПрдВApplication.CommandBars("Formatting").Visible = False
тАУ Formatting toolbar рдХреЛ рдЫреБрдкрд╛рдПрдВCommandBars.Add
тАУ рдирдпрд╛ toolbar рдмрдирд╛рдПрдВCommandBar.Controls.Add
тАУ рдирдпрд╛ button рдЬреЛрдбрд╝реЗрдВCommandBars("MyToolbar").Delete
тАУ custom toolbar рдХреЛ рд╣рдЯрд╛рдПрдВ
рдЗрд╕ рддрд░рд╣ рд╕реЗ рд╣рдо Excel VBA рдХреЗ рдЬрд░рд┐рдП menus рдФрд░ toolbars рдХреЛ modify рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдпрд╣ functionality рдЙрди users рдФрд░ developers рдХреЗ рд▓рд┐рдП рдмрд╣реБрдд рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╣реИ рдЬреЛ Excel рдХреЛ рдПрдХ professional tool рдХреА рддрд░рд╣ рдЗрд╕реНрддреЗрдорд╛рд▓ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред рдпрджрд┐ рдЖрдк рдПрдХ рдмрд╛рд░ рдЗрд╕реЗ рдЕрдЪреНрдЫреЗ рд╕реЗ рд╕реАрдЦ рдЬрд╛рддреЗ рд╣реИрдВ, рддреЛ рдЖрдк рдЕрдкрдиреЗ рдХрд╛рдо рдХреЛ рдмрд╣реБрдд speed рд╕реЗ рдФрд░ automation рдХреЗ рд╕рд╛рде рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
FAQs
Application.CommandBars("ToolbarName").Visible = True/False
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдХрд┐рд╕реА рднреА toolbar рдХреЛ рджрд┐рдЦрд╛ рдпрд╛ рдЫреБрдкрд╛ рд╕рдХрддреЗ рд╣реИрдВред рдЬреИрд╕реЗ: Application.CommandBars("Standard").Visible = True
ред
CommandBars.Add
method рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдПрдХ рдирдпрд╛ toolbar рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЙрд╕рдореЗрдВ Controls.Add
рд╕реЗ custom button рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП: "MyToolbar" рдирд╛рдо рд╕реЗ рдирдпрд╛ toolbar рдмрдирд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
CommandBars("Worksheet Menu Bar")
рд╕реЗ access рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░ Toolbar рдХреЛ CommandBars("Standard")
рд╕реЗред
Application.CommandBars("ToolbarName").Delete
рдХрд╛ use рдХрд░рдХреЗ рдХрд┐рд╕реА рднреА custom toolbar рдХреЛ permanently delete рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред