Ridurre a Icona la Barra Multifunzione da VBA

Question

Ciao a tutti,

devo trovare un codice VBA che mi riduca a icona la barra multifunzione, per ottenere un risultato come in figura.

L'istruzione Application.SendKeys "^{F1}" funziona, ma ha una fastidiosa controindicazione: mi disinserisce il tastierino numerico.

Ho trovato questo difetto su più PC e con diverse versioni di Windows.

Esiste un'istruzione diretta per ottenere quello che mi serve ?

Grazie....

Answer 1

Ciao Robi,

Ciao a tutti,

devo trovare un codice VBA che mi riduca a icona la barra multifunzione, per ottenere un risultato come in figura.

L'istruzione Application.SendKeys "^{F1}" funziona, ma ha una fastidiosa controindicazione: mi disinserisce il tastierino numerico.

Ho trovato questo difetto su più PC e con diverse versioni di Windows.

Esiste un'istruzione diretta per ottenere quello che mi serve ?

Prova:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    If Val(Application.Version) >= 14 Then

        CommandBars.ExecuteMso "MinimizeRibbon"

    End If

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Perfetto.

Grazie Norman.

Grande come sempre....