toolbar , text yazdırma

[cenk77ist]

excel de yeni bir toolbar ekledim aşağıya status bar ın üstünde..

toolbara ihtiyacıma göre birşeyler yazdurmak istiyorum, application.statusbar="deneme" de olduğu gibi..

nasıl yapabilirim.

 

[Zeki Gürsoy]

StatusBar'a ne yazdırmak istiyorsunuz?

 

[cenk77ist]

tşk ben birşeyler yapıp çözüm geliştirdim

önce mytbr diye bir toolbar ekliyorum, sonra mevcut toolbarlardan herhangi bir icon mesela drawing->sun gibi ekledim mytbr toolbar ıma

sonra yine customize dayken imageandtext yaptım sun ın özelliğini ve boş bir macro atadım

sub bosluk()

end sub
gibi..

daha sonra

aşağıdaki kod worksheet selectionchange de aktif..

Set OldCtrl = CommandBars("MYTBR").Controls(1)

For Each CTL In CommandBars("MYTBR").Controls

CTL.Caption = " deneme " ' istediğiniz text,
'Cells(ActiveCell.Row, "T").Value
'.. gibi

Next CTL

ve böylece status bar a yazdırmanız haricinde kocaman bir toolbaraad yazdırabiliyorsunuz.. çok sütunlu sayfalarda çalışanlar için güzel bir yardım