Sorgu için arama sonuçları: onaction

Sub menu_hazirla() CommandBars(1).Controls.Add(10, , , , True).Caption = "Yeni Menu" CommandBars(1).Controls.Add(10, , , , True).OnAction = "mesaj" End Sub Sub menu_sil() CommandBars(1).Controls("Yeni Menu").Delete End Sub Ekli dosyada menu_hazırla kodlarını kullanarak yeni menu...

...Set MOge = MNesne.Controls.Add(Type:=msoControlPopup) Else Set MOge = MNesne.Controls.Add(Type:=msoControlButton) MOge.OnAction = PozMakro End If MOge.Caption = Baslik If FaceId <> "" Then MOge.FaceId = FaceId If Bolucu Then MOge.BeginGroup = True Case 3 Set...

...= cb2.Controls.Add MenuObject2.Caption = "Seçili Kaydı Sil" MenuObject2.BeginGroup = True MenuObject2.Tag = "MyTagR" With MenuObject2 .OnAction = "kayitsil" End With Set cb2 = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub

...As CommandBar PopupSil Set cb = CommandsBar.Add(MenuAdi, msoBarPopup, False, True) With cb With .Controls.Add(Type:=msoControlButton) .OnAction = "Makro1" .FaceId = 71 .Caption = "Makro1" End With With .Controls.Add(Type:=msoControlButton) .OnAction = "Makro2"...

...Case 4 .Caption = "Abc def" Case 5 .Caption = "Abc Def GHI" End Select .OnAction = "CaseChange" End With Next Set cb = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub ' Sub Auto_Close()...

...i = cb.Controls.Count To 0 Step -1 cb.Controls(i).Delete Next With cb For i = 1 To Sheets.Count With .Controls.Add(Type:=msoControlButton) .OnAction = "SayfaGoster" .FaceId = 7 .Caption = Sheets(i).Name End With Next End With Set cb = Nothing End Sub Sub SayfaGoster() Dim ac As...

...As CommandBarControl Set TABANFORM = Application.CommandBars("Cell").Controls.Add With TABANFORM .Caption = "TABAN MODEL FORMU" .OnAction = "Module1.den" End With '...................................................................... Set SIPARISFORM =...

...Application.CommandBars.Add_("Faceld").Visible = True With Application.CommandBars_("Faceld").Controls.Add_(msoComtrolButton, 1, , , True) .Caption = "Faceld No:" & i .OnAction = "MakroAdi" .Faceld = i End With Next i Application.CommandBars("Faceld").Height = 50 End Sub saygılar halil...

...Else Set MOge = MNesne.Controls.Add(Type:=msoControlButton) MOge.OnAction = PozMakro End If MOge.Caption = Baslik If FaceId <> "" Then MOge.FaceId = FaceId If Bolucu Then MOge.BeginGroup =...

...Else Set MOge = MNesne.Controls.Add(Type:=msoControlButton) MOge.OnAction = PozMakro End If MOge.Caption = Baslik If FaceId <> "" Then MOge.FaceId = FaceId If Bolucu Then MOge.BeginGroup =...

...End With With cbSubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "Kart AÇ ALICI..." .OnAction = "firmaekle_al" End With With cbSubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "Kart AÇ SATICI..."...

...Temporary:=True) Set buttonOne = myBar.Controls.Add(Type:=msoControlButton) With buttonOne .FaceId = 133 .Tag = "RightArrow" .OnAction = "whichButton" End With Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton) With buttonTwo .FaceId = 134 .Tag = "UpArrow"...