sag tıklaya yada seride macro eklemek

[kneehot]

Sub ekle()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
neu = InputBox("Bitte Namen des neuen Arbeitsblattes eingeben:")
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert bereits!"
stil = vbCritical + vbOKOnly
title = "Achtung"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
Sheets.Add
ActiveSheet.Name = neu
Sheets(neu).Select
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
End With
End Sub



selamlar.arkadaslar yukarıda yazan kod gıbı kodları sag tıkladıgımızda cıkan menuye yesa seride ozellık olarak eklemek mumkunmu.mumkun ıse yolunu soylersenız sevınırım.yardımlara tesekkurler.

 

[Ömer]

Merhaba,

Farenin sağ klik olayına istediğiniz bir makroyu çalıştıracak kısayol mu eklemek istiyorsunuz..

.

 

[kneehot]

merhaba,

farenin sağ klik olayına istediğiniz bir makroyu çalıştıracak kısayol mu eklemek istiyorsunuz..

.

evet fareyenın sag tık menusune

 

[Ömer]

Kodları module kopyalayınız..

Sub Auto_Close()
    Application.CommandBars("Cell").Reset
End Sub
 
Sub Auto_Open()
    SagKlikMenu
End Sub
 
Sub SagKlikMenu()
    Set Menu = Application.CommandBars("Cell").Controls.Add
 
    With Menu
        .Caption = " **** Çalıştır **** "
        .FaceId = 9750
        .OnAction = "[COLOR=red]Deneme[/COLOR]"
        .BeginGroup = True
    End With
 
    Set Menu = Nothing
End Sub
 
Sub [COLOR=red]Deneme[/COLOR]()
    MsgBox "Hoşgeldiniz.."
End Sub

.

 

[kneehot]

Cok tesekkurler.