Risultati da 1 a 4 di 4

Discussione: Cambiare colore delle sfondo a puilsante (controllo modulo)



  1. #1
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2459
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    326
    Mi Piace dati
    49

    Cambiare colore delle sfondo a puilsante (controllo modulo)

    Una domanda che è più che altro una curiosità.

    Se su un foglio poniamo un pulsante (controllo modulo) e ne volessimo cambiare casualmente il colore di sfondo come si potrebbe fare?

    Ho scritto questa macro che per le forme funziona (ovviamente cambiando i riferimenti) ma per i pulsanti (controlli modulo) no.

    C'è una strada o non è possibile?

    Per gli ActiveX non c'è problema impostando la proprietà BackColor

    Codice: 
    Sub cambiacolore()
    Worksheets("Foglio1").Shapes("Pulsante 1").Select
    Dim r As Integer
    Dim g As Integer
    Dim b As Integer
    r = Application.WorksheetFunction.RandBetween(0, 255)
    g = Application.WorksheetFunction.RandBetween(0, 255)
    b = Application.WorksheetFunction.RandBetween(0, 255)
    Application.ScreenUpdating = False
     With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .BackColor.RGB = RGB(r, g, b)
            .Transparency = 0
            .Solid
        End With
        Range("a1").Select
    Application.ScreenUpdating = True
    End Sub
    Grazie
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    66
    Messaggi
    2161
    Versione Office
    2010/2013 PC
    Mi Piace ricevuti
    363
    Mi Piace dati
    40

    Re: Cambiare colore delle sfondo a puilsante (controllo modulo)

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Una domanda che è più che altro una curiosità.

    Se su un foglio poniamo un pulsante (controllo modulo) e ne volessimo cambiare casualmente il colore di sfondo come si potrebbe fare?

    Ho scritto questa macro che per le forme funziona (ovviamente cambiando i riferimenti) ma per i pulsanti (controlli modulo) no.

    C'è una strada o non è possibile?

    Per gli ActiveX non c'è problema impostando la proprietà BackColor

    Codice: 
    Sub cambiacolore()
    Worksheets("Foglio1").Shapes("Pulsante 1").Select
    Dim r As Integer
    Dim g As Integer
    Dim b As Integer
    r = Application.WorksheetFunction.RandBetween(0, 255)
    g = Application.WorksheetFunction.RandBetween(0, 255)
    b = Application.WorksheetFunction.RandBetween(0, 255)
    Application.ScreenUpdating = False
     With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .BackColor.RGB = RGB(r, g, b)
            .Transparency = 0
            .Solid
        End With
        Range("a1").Select
    Application.ScreenUpdating = True
    End Sub
    Grazie
    Non vorrei dire una scemata ma credo che, purtroppo, non si possa fare (spero di essere smentito)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2459
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    326
    Mi Piace dati
    49

    Re: Cambiare colore delle sfondo a puilsante (controllo modulo)

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Non vorrei dire una scemata ma credo che, purtroppo, non si possa fare (spero di essere smentito)
    Grazie Gaetano

    Lo credo anch'io anche perché se si va manualmente in Formato Controllo non c'è la possibilità di variare il colore dello sfondo del pulsante.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    72
    Messaggi
    1566
    Versione Office
    Excel2007
    Mi Piace ricevuti
    399
    Mi Piace dati
    100

    Re: Cambiare colore delle sfondo a puilsante (controllo modulo)

    Ciao Alfredo e ciao Gaetano
    NO, non si può fare. Puoi cambiare il colore del testo ma non dello sfondo.

    Ciao,
    Mario

Discussioni Simili

  1. Macro per CAMBIARE colore alla pagina per stamparla?
    Di corfurio nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 31/08/16, 19:15
  2. Cambiare colore a riga/colonna di celle se una cella uguale ad un testo
    Di Cavier80 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 22/05/16, 12:23
  3. cambiare colore del CommandButton al clik
    Di principiante nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 01/05/16, 00:34
  4. cambio colore del carattere e delle celle
    Di Scuotioss4 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 10/12/15, 18:55
  5. Somma celle sulla base del colore sfondo
    Di tyran nel forum Domande su Excel in generale
    Risposte: 25
    Ultimo Messaggio: 18/10/15, 18:19

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •