araç çubuğundaki icon simgenin değiştirilmesi

[cenk77ist]

araç çbuğundaki simgeleri macro ile değiştirebilirmiyiz.. windows api ile bir timer başlıyor excel sayfamda 15 dk da bir çalışıyor.. toolbarda timer ı başlatan ve durduran 2 ayrı simge icon var. timer aktifken başlatan simgenin değişik olmasını istiyorum yada seçili durumda gözükmesini??
mümkünmü??

 

[Seyit Tiken]

Evet mümkündür. Manuel yapabileceğiniz gibi, kopyala-yapıştırma ile yapabilirsiniz. Menü açık olmak kaydıyla.

 

[cenk77ist]

bunu macro ile yapmak istiyorum ama

 

[Seyit Tiken]

Önce makrosuz sonucu görmek lazım. Yapmak lazım. Bence excel menülerindeki ikonları değiştirmek zor. Ama, dışarıdan herhangi bir resim, Logo vs. müneye kopyalama/yapıştırma metoduyla yapabilirsiniz. Yapıştırılacak resmi, kopyalanacak duruma getirmek gerek.

 

[conari]

Makrosuz yöntem mevcut, ama makrolu bilemiyorum.

Araç çubukları özelleştiri seçin

Daha sonra üst taraftan (normal kullandığınız araç çubuklarının olduğu yerden)

istediğinize sağ tıklayarak iconunu v.s. değiştirin.
Not:Tabi hepsi için değil

 

[Haluk]

Aşağıdaki kodlar, "Formatting - Biçim" araç çubuğuna bir buton ilave eder ve her çalıştırıldığında butonun ikonu değişir. (Karakök ve tablo ikonlar&#305

Denemek için, kodları boş bir module yapıştırdıktan sonra Autpen makrosunu çalıştırın ve sonra da araç çubuğundaki yeni ilşave edilen butona tıklayın ...

Bunun gibi birşey mi arıyordunuz ?

Dim NewBtn As CommandBarButton
'
Sub Auto_Open()
    Set NewBtn = Application.CommandBars("Formatting").Controls.Add(Type:=msoControlButton, ID:=2950)
    With NewBtn
        .OnAction = "MyMacro"
        .Tag = "MyTag"
        .Style = msoButtonIcon
        .FaceId = 8
        .TooltipText = "Özel makro butonu..."
    End With
End Sub
'
Sub MyMacro()
    If NewBtn.FaceId = 8 Then
        NewBtn.FaceId = 26
    Else
        NewBtn.FaceId = 8
    End If
    MsgBox "Macro çalıştı !"
End Sub
'
Sub Auto_Close()
    Set NewBtn = CommandBars.FindControl(Tag:="MyTag")
    NewBtn.Delete
    Set NewBtn = Nothing
End Sub

 

[cenk77ist]

ewet buydu.. excel açılışta timer çalışıyor 15 dk d bir as400 de bir tablo kontrol ediliyor istenilen durum oluştuysa excel haber veriyor.. bu arada timer çalışırken toolbarda sayenizide farklı bir icon oluşturuluyor.. dikkat çekmesi için!! çünkü başka bir macro çalışırken timer ın kodu da çalışırsa excel kapanıyor.. belki bunun için bir yardım alabilirm biliyorsanız_? tşk