SAĞ KLİK

[hamitcan]

SAÐ KLÝK

excelde herhangi bir hücrenin içindeyken sağ klik yaptığımda "yazdır" komutu çıksın istiyorum

şimdiden yardımlarınız için teşekkürler...

 

[lovekiller]

Þu kodlar işini görür:

Sub SpecialCellMenu()
Dim cb As CommandBar
Set cb = Application.CommandBars("Cell")
'
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Lovekiller Menu"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton, ID:=4)
.Visible = True
End With
End With
Set MenuObject = Nothing
End Sub

Kolay gelsin

 

[boracarli]

Nereye

bu kodla nereye yazılıyor

 

[genesis]

:hey:
Exceli açın,alt+F11(alt ve F11 tuşlarına birlikte basın) ,insert module ,yukarda verilen kodu açılan modüle kopyalayın sadece bu kadar. :keyif:


:uyku:

 

[hamitcan]

SAÐ KLÝK

YANLIÞLIKLA BİRDEN FAZLA YAPTIM. SİLMEK İÇİN NE YAPMALIYIM

 

[Haluk]

@hamitcan:

Aşağıdaki linkte yer alan PanZehir isimli proseduru bir module yerleştirip, çalıştır.

http://www.excel.web.tr/viewtopic.php?t=181

 

[hsayar]

yada başka menülerinizde varsa sağ tuşta bu kodu deneyin;

Sub SagTusKaldırYaz()
'*hücrenin sağtuş menüsüne eklenen komutları kaldır
On Error Resume Next
'===================================================================
Application.CommandBars("Cell").Controls("Lovekiller Menu").Delete

End Sub