Orodne vrstice

[Stenly]

Pozdravljeni

Moram priznati, da sem to vprašanje že zastavil, dobil sem namig, naprej mi ni šlo in sem ostal pri stari daljši varianti .

Želel bi vse orodne vrstice odstraniti (Application.CommandBars("xxx").Visible = False). Dobil sem namig - For Each zanko. Ni mi ratalo. Ostal sem na tem, da vsako vrstico poimensko odstranim. Tu pa se tudi pojavi kaka težavica .

Za odgovor se zahvaljujem.
Lp

[admin]

Pozdravljeni,

Če vas prav razumem iščete tole:

Koda: Izberi vse

' www.matjazev.net
' 16.09.2005
Sub Skrij()
    Dim cb As CommandBar
    
    
    For Each cb In Application.CommandBars
        cb.Visible = false
    Next
End Sub

Kje je problem?

[Stenly]

Ja; to je to. Kje naj bi bila težava ne vem. Ampak tudi ta procedura se mi zatakne na (cb.Visible = false ) .

Lp

[admin]

Ja res ne dela... Sploh nisem preizkusil. No rešitev navkljub temu ni težka saj je problem samo v tem, da so CommandBar-i tudi elementi, ki se ne smejo skriti. Orodne vrstice imajo tip 2, zatorej je delujoča(!) koda sledeča:

Koda: Izberi vse

' www.matjazev.net
' 16.09.2005
Sub Skrij()
    Dim cb As CommandBar
   
    For Each cb In Application.CommandBars
        If (cb.Type = 0) Then cb.Visible = False
    Next
End Sub

[Stenly]

To je to .
Hvala za odgovor.

Lp