POPUP MENU

[hamitcan]

BENİM BİR SORUNUM VAR. AÞAÐIDAKİ 2 KODU VİSUAL BASİC'TE OBJECT BROWSER'DAN BULDUM VE ÇALIÞTIRDIM. EXCEL'DE :kafa: :kafa: BİR HÜCRENİN ÜZERİNDEYKEN SAÐ KLİK YAPTIÐIMDA 3 TANE OK ÇIKIYOR BUNU SİLEMİYORUM.OFFİCE 2000 KULLANIYORUM.PROGRAMI TEKRAR YÜKLEDİM AMA YİNE SİLEMEDİM BENİ OKLARDAN KURTARABİLİRSENİZ ÇOK SEVİNECEM . TEÞEKKÜRLER ÞİMDİDEN


ActionControl Property Example

This example creates a command bar named “Custom”, adds three buttons to it, and then uses the ActionControl property and the Tag property to determine which command bar button was last clicked.

Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
Set buttonOne = myBar.Controls.Add(Type:=msoControlButton)
With buttonOne
.FaceId = 133
.Tag = "RightArrow"
.OnAction = "whichButton"
End With
Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton)
With buttonTwo
.FaceId = 134
.Tag = "UpArrow"
.OnAction = "whichButton"
End With
Set buttonThree = myBar.Controls.Add(Type:=msoControlButton)
With buttonThree
.FaceId = 135
.Tag = "DownArrow"
.OnAction = "whichButton"
End With
myBar.Visible = True
The whichButton subroutine responds to the OnAction method and determines which command bar button was last clicked.

Sub whichButton()
Select Case CommandBars.ActionControl.Tag
Case "RightArrow"
MsgBox ("Right Arrow button clicked.")
Case "UpArrow"
MsgBox ("Up Arrow button clicked.")
Case "DownArrow"
MsgBox ("Down Arrow button clicked.")
End Select
End Sub

 

[Hüseyin]

Merhaba,
bu kod normal bir toolbar yaratıyor ve bunu istediğiniz zaman silebiliyorsunuz.
Mesajınızda belirttiğinizden farklı birşeyler yapmış olmalısınız diye düşünüyorum. :?

 

[hamitcan]

popup menu

Ã?ncelikle ilginiz için teşekkürler. Araç çubuğunu silebiliyorum ama sağ klik yaptığımda yani kısa yolunda oklar hala duruyor. Eğer ben farklı bir şey yaptıysam bunun çözümü var mıdır? Teşekkürler!....

 

[Hüseyin]

Bu sağ klik problemi tüm excel dosyalarınızdamı oluyor yoksa bu denemeyi yaptığınız dosyadamı.
:?

 

[hamitcan]

sağ klik

Merhaba öncelikle forumunuz çok iyi ve çok başarılı.

Þunu belirtmek istiyorum; toplumumuz artık çok bireyselleşti. Kimse kimse için karşılıksız birşey yapmak istemiyor. Siz bunu aşmışsınız tebrik ederim. Umarım hep böyle devam edersiniz.


---Sağ klik problemi exceli her açtığımda çıkıyor. Toolbarı silebiliyorum ama sağ klik problemi devam ediyor.----

Teşekkür ederim yardımlarınız için

 

[Hüseyin]

Merhaba,
Forum hakkındaki görüşleriniz için teşekkür ederim.
Amacımız hep böyle devam etmek ve hizmet klitemizi dahada yükseltmek.

Sizin probleminize gelince;
biraz beyin jimnastiği yapmamız gerekecek. İnsan pcnin başında olmayınca zorlanıyor.
Þimdi varsayımlar ile hareket edelim.
1- Makroyu eklediğiniz sayfayı otomatik açılış sayfası yapmış olabilirsiniz. (book.xlt)
bunu test etmek için şu kontrolü yapalım. Hiç bir çalışma kitabı açık değilken sıfırdan bir çalışma kitabı açın ve VB editörünü açın herhangi bir kod görüyormusunuz?
2- Herhangi bir eklenti dosyası aktif olabilir.
Araçlar menüsünden eklentiler tıklayın.
Burada hangi eklentinin önünde onay işareti var?

Bunları yaptıktan sonra bilgi verirseniz belki birşey yakalarız. :idea:

 

[hamitcan]

sağ klik

Dediğiniz gibi birinci işlemi yaptım herhangi bir kod yok, eklentiler bölümünde ise İnternet assistant vba,Þablon hizmet programları,veri izlemeli şablon sihirbazı seçenekleri işaretli.

 

[Hüseyin]

Eklentiler bölümündeki işaretleri herbirini sırası ile kaldırıp sağ tuşu deneyebilirmisiniz.

 

[hamitcan]

sağ klik

Denedim ama faydası olmadı. En iyisi ben oklarla birlikte exceli kullanmaya alışsam iyi olacak herhalde.Sizi de fazlasıyla meşgul ettim zaten.Teşekkürler şimdiye kadar ki yardımlarınız için :agla:

 

[Hüseyin]

:kafa: :kafa: :kafa:
Birgün çözerseniz bilgi bekliyorum. Çok merak ettim.
:? :? :?

 

[Haluk]

@hamitcan:

Aşağıdakileri bir module kopyalayıp, PanZehir isimli proseduru çalıştırın. Bakalım düzelecek mi ?

Sub PanZehir()
    CommandBars("Cell").Reset
End Sub

 

[hamitcan]

YAÞASIN OKLARDAN KURTULDUM

KOD İÞE YARADI TEÞEKKÜRLER! OKLARDAN KURTULDUM ÜSTAD. YİNE TEBRİK EDİYORUM HÜSEYİN ARKADAÞIMIZI BÃ?YLE BİR FORUM KAZANDIRDIÐI İÇİN HERKESE ÇABALARINDAN DOLAYI TEKRAR TEÞEKKÜR EDERİM İYİ ÇALIÞMALAR!.....