kamera aracının çağırılması

[EKREM1661]

Saygı değer arkadaşlar..! Selamlar ve hayırlı çalışmalar..!

Yaptığım bir çalışma içerisinde, Excel menülerinden Kamera aracını zaman zaman kullanmam icap ediyor.

Malûm ki bu araç görünürdeki araç çubuklarında mevcut değil, özelleştirmek gerekiyor, sorun bununla da çözülmüyor, çünkü; başka bilgisayarda çalışma söz konusu olunca yine aynı işlem icap edecek.. Bunu bir düğme ile çağıramazmıyız..

Çağırma derken; yani, kamera aracı işlevini bir düğmeden yürütemezmiyiz..

 

[Seyit Tiken]

Aşağıdaki kodu bir düğmeye atayarak deneyiniz.

Sub Düğme1_Tıklat()
Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlButton, ID:=280, Before:=11
End Sub

 

[EKREM1661]

Sayın Seyit Tiken..
ilginize teşekkür ediyorum..
konu çözüldü..fakat, menü paletine menü olarak yapıştırılmasa daha iyi olur gibime geliyor..
Çünkü, başka bir kullanıcı düğmeye birden fazla tıklarsa paleti fazladan menülerle doldurur..

 

[Seyit Tiken]

Bunu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 1 Then Application.CommandBars("Worksheet Menu Bar").Controls(11).Enabled = 1
If [a1] = "" Then Application.CommandBars("Worksheet Menu Bar").Controls(11).Enabled = 0
End Sub