Butona atanan makroyu bilmek

[cavanoos]

Merhaba arkadaşlar;

Excel sayfamda pek çok buton var.Bunlara makrolar atıyorum.Bir butona hangi makro kodunun atandığını nerden görebilirim.Visual basic sayfasında bulamadım.Bir şey daha soracam.Butonlarım fazla demiştim.Bunları daha düzgün bir konuma yerleştirmek istiyorum ama zor oluyor.Her buton için sağdan şu kadar cm,soldan bu kadar diye bir ayar varmıdır ?

 

[İhsan Tank]

commanbutton ise tasarım modu'nu açıp çift tıklarsanız görebilirsiniz.
buton ise sağ tuş makro ata'da yazan ad'da görebilirsiniz makro kod'unun adını sonra module'de bu kodu bularsunuz.
not: kod'un adı
Sub xxx()
buradaki xxx'dir.

diğer sorunuz ise
buton için
sağ tuş - denetim biçimlemdir - boyut'tan ayarlıyabilirsiniz
commanbutton için
sağ tuş - özellikler - left'in karşısındaki rakamı değiştirerek deneyiniz.

umarım işinize yarar

 

[cavanoos]

İhsan Bey;

İlk sorunum çözüldü.Excel sayfasına konan buton için,butonu soldan 10 cm içeride dursun,üstten 10 cm gibi bir ayar yok galiba.Butonun excel sayfası içindeki ayarlama için,denetim biçimlendirde boyut var ama o butonun içindeki yazı için.

 

[Necdet]

Merhaba,

İlk sorunuza bir destekte benden

Sub Butonlar_ve_Calistirdikleri_Makrolar()
    Dim Nesne As Shape
    For Each Nesne In ActiveSheet.Shapes
        Nesne.Select
        MsgBox "Buton Adı            : " & Selection.Name & Chr(10) & Chr(10) & _
               "Buton Açıklaması   : " & Selection.Caption & Chr(10) & Chr(10) & _
               "Çalıştırdığı Makro : " & Selection.OnAction, vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    Next Nesne
    
End Sub

 

[1mak1mak]

Merhaba,

İlk sorunuza bir destekte benden

Sub Butonlar_ve_Calistirdikleri_Makrolar()
    Dim Nesne As Shape
    For Each Nesne In ActiveSheet.Shapes
        Nesne.Select
        MsgBox "Buton Adı            : " & Selection.Name & Chr(10) & Chr(10) & _
               "Buton Açıklaması   : " & Selection.Caption & Chr(10) & Chr(10) & _
               "Çalıştırdığı Makro : " & Selection.OnAction, vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    Next Nesne
    
End Sub

Güzel paylaşım Teşekkürler

 

[Necdet]

Güzel paylaşım Teşekkürler

Güle güle kullanınız.
Teşekkürler.