Aprire colori di excel da pulsante

[OscarPartecipante Oscar Karma: 45 pts]

Qualcuno sa il codice per aprire i colori personalizzati di Excel da un pulsante

Grazie

[LucaSRPartecipante LucaSR Karma: 15 pts]

Ciao onestamente no, hai provato a registrare una macro? Possibilmente ti scrive il codice

[OscarPartecipante Oscar Karma: 45 pts]

LucaSR ha scritto:

Ciao onestamente no, hai provato a registrare una macro? Possibilmente ti scrive il codice

Ciao Luca si ho provato , ma non lo registra

[alexps81Moderatore alexps81 Karma: 58 pts]

Prova così:

Option Explicit

Sub ApriTavolozzaColori()
Dim colore As Long
    colore = Application.Dialogs(xlDialogEditColor).Show(2)
End Sub

prova a modificare il numero 2 con altri numero per altri colori (dovrebbero far parte dei ColorIndex)

[alexps81Moderatore alexps81 Karma: 58 pts]

Estratto da una guida sul Web...se vuoi cambiare colore alla cella attiva dopo che hai scelto il colore dalla tavolozza:

Option Explicit

Sub ApriTavolozzaColori2()
Dim lcolor As Long

If Application.Dialogs(xlDialogEditColor).Show(1, 255, 255, 255) = True Then
    lcolor = ActiveWorkbook.Colors(1)
    ActiveCell.Interior.Color = lcolor
Else
    MsgBox "Nessun colore scelto"
End If

End Sub

[OscarPartecipante Oscar Karma: 45 pts]

Grazie Alex

Li ho provati entranbi , il primo si apre ma non funziona

il secondo non va i colori personalizzati

Sono riuscito a recuperare questo sotto sembra che funzioni tutto

 

Sub ColorPaletteDialog()
Application.Dialogs(xlDialogPatterns).Show
End Sub

[LucaSRPartecipante LucaSR Karma: 15 pts]

Ne ho imparata un'altra, non si smette mai di imparare    

[alexps81Moderatore alexps81 Karma: 58 pts]

Ottimo...però io ho provato la seconda che ho postato e funzionano i colori personalizzati. Forse dopo che hai scelto il colore desiderato, devi andare ad agire sulla tonalità (il cursore nero di fianco per intenderci), perché altrimenti rimane bianco e sembra a te non essere selezionato

[alexps81Moderatore alexps81 Karma: 58 pts]

Oppure per non essere portato fuori pista, potresti provare a partire con un colore che abbia una tonalità neutra. Prova a modificare questa linea di codice:

If Application.Dialogs(xlDialogEditColor).Show(1, 0, 250, 250) = True Then

[gianfranco55Partecipante gianfranco55 Karma: 91 pts]

ciao

Luca

Ne ho imparata un'altra, non si smette mai di imparare  

 Oscar avrà i sui motivi ma io non ne vedo i benefici applicandola ad un pulsante

( hai tutto nella barra multifunzione e che clicchi sulla barra o sul pulsante poco cambia)

una sua logica sarebbe applicarla al doppio click......qualcosa magari velocizzi

mah! a livello didattica va bene ma come applicazione non ne vedo benefici

ma sicuramente è la mia ritrosia verso il VBA che parla😀

[LucaSRPartecipante LucaSR Karma: 15 pts]

Capisco il tuo punto di vista, ma sai le possibilità sono diverse:

- si potrebbe mettere in un form con Excel nascosto 

- come dici tu al doppio click 

Non pensavo si potesse fare o cmq non ci avevo mai pensato, ribadisco "non si smette mai di imparare"

[OscarPartecipante Oscar Karma: 45 pts]

gianfranco55 ha scritto:

Ne ho imparata un'altra, non si smette mai di imparare  

 Oscar avrà i sui motivi ma io non ne vedo i benefici applicandola ad un pulsante

( hai tutto nella barra multifunzione e che clicchi sulla barra o sul pulsante poco cambia)

una sua logica sarebbe applicarla al doppio click......qualcosa magari velocizzi

mah! a livello didattica va bene ma come applicazione non ne vedo benefici

ma sicuramente è la mia ritrosia verso il VBA che parla

In UserForm la uso il foglio è nascosto lo vedo solo al richiamo

[OscarPartecipante Oscar Karma: 45 pts]

alexps81 ha scritto:

Oppure per non essere portato fuori pista, potresti provare a partire con un colore che abbia una tonalità neutra. Prova a modificare questa linea di codice:

If Application.Dialogs(xlDialogEditColor).Show(1, 0, 250, 250) = True Then

Questo è perfetto grazie Alex

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

In un progetto Access ho utilizzato l'API ChooseColor (specifica per l'applicazione) ma ho visto googlando che e' disponibile l'analoga per Excel, direttamente dalla libreria dei Common Dialogs. 

Lo dico tanto per aggiungere un cent   

[OscarPartecipante Oscar Karma: 45 pts]

vecchio frac ha scritto:

In un progetto Access ho utilizzato l'API ChooseColor (specifica per l'applicazione) ma ho visto googlando che e' disponibile l'analoga per Excel, direttamente dalla libreria dei Common Dialogs. 

Lo dico tanto per aggiungere un cent   

L'avevo vista anch'io , ma non riuscivo a farla funzionare , alla fine ci sono riuscito , poi è arrivato Alex con più esempi

Lo usavo così

Application.Dialogs(xlDialogEditColor).Show

Così andava , ma mi apriva il Patterns

Sub ColorPaletteDialog()
Application.Dialogs(xlDialogPatterns).Show
'Application.Dialogs(xlDialogEditColor).Show
End Sub

[Autore]

Articoli