Sorgu için arama sonuçları: onaction

Merhaba ilginiz için teşekkürler Söylediklerinizi yaptım ama ya yanlış yaptım yada yanlış bir şey var. Hiçbir netice alamadım. 1-Boş bir excel açtım ThisWorkbook içine ilk Kodunuzu girdim Dosyayı Farklı olarak Eklenti (xlam) olarak kaydettim 2-Dosyayı tekrar açıp bir modül oluşturup içine diğer...

...Menu Bar").Controls("Menü") _ .Controls.Add(Type:=msoControlButton, ID:=2949) bir.Caption = "AÇIKLAMA" bir.OnAction = "MAKRO_ADI" Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _ .Controls.Add(Type:=msoControlButton, ID:=2949)...

...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "---------Sayfalarda Sil" .OnAction = "Sil" .FaceId = 53 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...

...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...

...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "+ , - Yeni Sil Ve Ekle" .OnAction = "sil_tabloya_ekle" .FaceId = 53 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...

çok teşekkür ederim Ömer hocam

...MenuObject = cb.Controls.Add(Type:=msoControlButton, before:=7) With MenuObject .Caption = "Sayfalarda Satir Ekle" .OnAction = "deneme" .FaceId = 51 End With Set cb = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...

..., , , True) With menu1 .Style = msoButtonIconAndCaption .Caption = "Karşılaştır" .OnAction = "Karsilastir" .FaceId = 99 End With Set menu2 = bar.Controls.Add(msoControlButton, , , , True) With menu2 .Style = msoButtonIconAndCaption...

...SubMenuItem = Application.CommandBars(1).Controls.Add(Type:=msoControlButton) SubMenuItem.Caption = "deneme" SubMenuItem.OnAction = "mizan" 'çalışması istenen makro SubMenuItem.FaceId = 300 SubMenuItem.BeginGroup = True End Sub

...https://docs.microsoft.com/en-us/office/vba/library-reference/concepts/customize-the-office-fluent-ribbon-by-using-an-open-xml-formats-file onaction da yazılı olan isim makro ismidir. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <tabs>...

...cbc.Visible = False Next cbc With Application.CommandBars("Cell").Controls.Add(temporary:=True) .Caption = "Mevzuata Göre Yenile" .OnAction = "Mevzuata Göre Yenile" End With With Application.CommandBars("Cell").Controls.Add(temporary:=True) .Caption = "Çalışma Takvimine Göre Yenile" .OnAction...

...1.5, 2) With MenuObject For i = LBound(myArr) To UBound(myArr) With .Controls.Add(Type:=msoControlButton) .OnAction = "Test" .FaceId = 7 .Caption = myArr(i) End With Next End With Set MenuObject = Nothing Set cb =...

...Sag_Tik_Ana_Menu For Each Sil_Alt_Menu In Sag_Tik_Sil_Menu.Controls If Sil_Alt_Menu.Index = 1 Then Sil_Alt_Menu.OnAction = "Silme_Onaylama_Sutun" If Sil_Alt_Menu.Index = 2 Then Sil_Alt_Menu.OnAction = "Silme_Onaylama_Satir" Next...

Pardon ben sadece resmi ekle modülünü kullanacağım için o bölümü almıştım, düzenleyince resim almaya başladı tek sorun. 5 satırdın sadece ilk ve son satırını alıyor aradakileri boş geçiyor. İlk satırdaki resme de 4. satırın ismini veriyor. ActiveSheet.Shapes.AddPicture(yol, True, True...

...Set resim = ActiveSheet.Shapes.AddPicture(yol, True, True, Range("F" & i).Left, Range("F" & i).Top, 60, Range("F" & i).Height) resim.OnAction = "Resim_Büyüt" resim.Name = Range("B" & i) Next End Sub Sub Resim_Büyüt() Dim ActiveShape As Shape ButtonName = Application.Caller Set ActiveShape...

Type mismatch hatası veriyor.

...görüleceği hücre Soldan .Top = Range("F" & i).Top 'Resmin görüleceği hücre Üstten .Height = Range("F" & i).Height .Name = Range("B" & i) .OnAction = "Resim_Büyüt" End With Next End Sub Sub Resim_Büyüt() Dim ActiveShape As Shape ButtonName = Application.Caller Set ActiveShape =...

Hocam oldu çok çok teşekkür ederim çok sağolun kolay gelsin :)

Kodlarınızdaki "AddShape" bu satırın altına Selection.OnAction = "Renklendir" şu satırı ekleyin , böylelikle tüm oluşturulan şekillere atanmış olur kodlar.

...[S:S]) Is Nothing Then Exit Sub For a = Application.CommandBars("Cell").Controls.Count To 1 Step -1 Application.CommandBars("Cell").Controls(a).Delete Next Set menu01 = Application.CommandBars("Cell").Controls.Add With menu01 .Caption = "TAKVİM AÇ" .OnAction = "ac" End With Exit Sub menu End Sub