surat yüz face leri gösterecek makro

[KuTuKa]

gerçi ben bir tane yazdım ama hata alıyorum.neden kaynaklandığını söyleyebilirmisiniz?


Sub suratlar()
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 kutuka

 

[KuTuKa]

arkadaşlar makrodaki hatam nerede ? bakaabilen varmı?

 

[enderturk]

With Application.CommandBars_("Faceld").Controls.Add_(msoComtrolButton, 1, , , True)

M N OLMAYACAKMI