• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Örnek Kod Excel Menülerindeki Bütün İconları MenuBarda Göster

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
Office 2016 Pro
Merhabalar,

facebutonlar.JPG

Kod:
Private Sub IconGoster()
    Dim NewToolbar As CommandBar
    Dim NewButton As CommandBarButton
    Dim i As Integer, IDStart As Integer, IDStop As Integer
    
    On Error Resume Next
    Application.CommandBars("FaceIds").Delete
    On Error GoTo 0
    
    Set NewToolbar = Application.CommandBars.Add _
        (Name:="FaceIds", temporary:=True)
    NewToolbar.Visible = True
    
    IDStart = 1
    IDStop = 250
    For i = IDStart To IDStop
        Set NewButton = NewToolbar.Controls.Add _
            (Type:=msoControlButton, ID:=2950)
        NewButton.FaceId = i
        NewButton.Caption = "FaceID = " & i
    Next i
    NewToolbar.Width = 600
End Sub
 
Üst Alt