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à
    64
    Messaggi
    6011
    Versione Office
    2013
    Likes ricevuti
    617
    Likes dati
    132

    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"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3228
    Versione Office
    2013 PC
    Likes ricevuti
    465
    Likes dati
    46

    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à
    64
    Messaggi
    6011
    Versione Office
    2013
    Likes ricevuti
    617
    Likes dati
    132

    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"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    2886
    Versione Office
    Excel2010
    Likes ricevuti
    564
    Likes dati
    134

    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. [Risolto] Cambiare colore a parte di testo
    Di *Giuseppe* nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 17/03/17, 23:07
  2. [Risolto] Formattazione condizionale per cambiare colore testo
    Di sowhatt nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 06/03/17, 23:11
  3. [UserForm] cambiare sfondo di una textbox in base a delle condizioni
    Di marcocb nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 22/01/17, 00:47
  4. 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
  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
  •