add icons menus and buttons to the sheet / page Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Dim cbb As CommandBarButton, ComBar As CommandBar, cbc As CommandBarControl

Sub CommandBarControlID_List()
Dim a, b, c
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
b = 0
c = 1
For a = 1 To 50000
On Error Resume Next
Set cbb = ComBar.Controls.Add(ID:=a)

If Err.Number  0 Then GoTo weiter
cbb.CopyFace
With Workbooks("FaceIDs").Sheets(1)
.Cells((c Mod 100) + 1, (c  100) + b + 1).Formula = a
.Cells((c Mod 100) + 1, (c  100) + b + 2).Activate
ActiveSheet.Paste
.Cells((c Mod 100) + 1, (c  100) + b + 3).Formula = cbb.Caption
End With
If (c + 1) Mod 100 = 0 Then b = b + 3
c = c + 1
weiter:
Application.CommandBars("test").FindControl(ID:=a).Delete
Err.Clear
Next
End Sub

Sub CommandBarFaceID_List()
Dim a, b
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
On Error Resume Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
Set cbb = ComBar.Controls.Add(ID:=1)
b = 0

For a = 1 To 3518
With cbb
.FaceId = a
.CopyFace
End With
With ThisWorkbook.Sheets(1)
.Cells((a Mod 100) + 1, (a  100) + b + 1).Formula = a
.Cells((a Mod 100) + 1, (a  100) + b + 2).Activate
ActiveSheet.Paste
End With
If (a + 1) Mod 100 = 0 Then b = b + 2
Next
End Sub

Sub CommandBar_List()
Application.ScreenUpdating = False
Dim a, b, c, cbc, d
b = 1
d = 0
For Each a In Application.CommandBars
Cells(b + d, 1) = a.Name
Cells(b + d, 2) = "Item-no: " & b
For Each cbc In a.Controls
d = d + 1
Cells(b + d, 3) = cbc.Caption
Cells(b + d, 4) = Cells(cbc.Type, 10)
Cells(b + d, 5) = "Type: " & cbc.Type
Cells(b + d, 6) = "ID: " & cbc.ID
Next
b = b + 1
Next
End Sub

No	Macro Name
1	add icons menus and buttons to the sheet / page
2	excel operators hk
3	add sheet / pages as menus
4	right mouse on active sheet / page menu
5	a menu to the right mouse on a sheet / page
6	sheet / pages with toolbars and menus
7	excellent menu insert file menu print print preview sheet / page structure remains
8	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
9	specifies in detail how many formulas are in the book (on new sheet / page)
10	specifies in detail how many references the book contains (on new sheet / page)
11	list formulas on new sheet / page
12	right mouse menu on sheet / page
13	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
14	Adds sheet / pages based on data in column A and writes data up to column D
15	sheet / pages showing userform (with code without form)
16	Try the following code to add sheet / pages. Copies sheet / page 1
17	userformless form menu sheet / page select
18	deleting the menu bar and creating a custom menu
19	find the textbox in the sheet / page (must write all)
20	code that finds the number of sheet / pages 2

Excel Free Macros (VBA)

Add İcons Menus And Buttons To The Sheet / Page

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords