Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Mart 2009 Pazar

List All Toolbars

'Module1

Option Explicit
Dim i As Single
Dim CB
Sub TümAraçÇubuklarınıListele()'List All Toolbars

For Each CB In CommandBars

i = i + 1
[A1] = "CB Orjinal Adı"
[A1].Offset(i, 0) = CB.name
[B1] = "CB Bölgesel Adı"
[B1].Offset(i, 0) = CB.NameLocal
[C1] = "Görünürlük"
[C1].Offset(i, 0) = CB.Visible

Next CB

End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul