Orodne vrstice

Pomoč pri izdelavi makrov
Odgovori
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Orodne vrstice

Odgovor Napisal/-a 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 :oops: .

Ž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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a 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?
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

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

Lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

:oops: :oops:

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
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

To je to :D .
Hvala za odgovor.

Lp
Odgovori