...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"...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.