Risultati da 1 a 8 di 8

Discussione: Posizione mouse e Colore su Immage in UserForm



  1. #1
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Posizione mouse e Colore su Immage in UserForm

    Buona sera a tutti
    Per un lavoro che sto facendo ho necessitÓ di conoscere, quando clicco su una Image di UserForm, sia le coordinate X e Y sia il colore del pixel.
    Da un vecchio lavora di un Amico (scossa, che ringrazio) ho imparato ad individuare posizione e colore di un punto su un Foglio Excel ovvero su una Immagine sul Foglio.
    Nel file allegato potrete vedere che i dati relativi al Foglio ci sono tutti, per l'Immagine sul foglio ci sono ma manca il codice di Interior.ColorIndex, per l'UserForm e l'Immagine nella stessa ho le coordinate del punto in cui clicco (si riferiscono alla distanza dal bordo sinistro e superiore, ma ognuna rispettivamente per il proprio oggetto) mentre non riesco a individuare il Colore del punto.
    So bene che l'oggetto Image di VBA non ha la possibilitÓ di trovare l'handle, ma un modo per conoscere il colore del pixel cliccato ci deve pur essere.

    Aspetto pazientemente che qualcuno mi risolva il problema e ringrazio anticipatamente. Buon Weekend,
    Mario
    File Allegati File Allegati

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6811
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Posizione mouse e Colore su Immage in UserForm

    Ciao Mario

    Prova a guardare qui https://sim0n.wordpress.com/2009/03/...-pixel-colour/

    Ma io non sono riuscito a farla funzionare :262:

    Ci vuole scossa

    Alfredo

    P.S. Comunque fai anche tu una ricerca con Google con "Excel VBA get pixel color"

  3. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Posizione mouse e Colore su Immage in UserForm

    Ciao a tutti,

    @Mario
    premetto che questo tuo file va tra i miei appunti... :246:

    Non ho spulciato tutti i codici, mi sono limitato a copiare la tua macro "a" modificando alcune piccole cose.
    Quindi non uso "Image1_MouseDown" ma chiamo direttamente la macro "b" con l'evento "click" dell'immagine nella userform:

    Codice: 
    Private Sub Image1_Click()
    Call b
    End Sub
    Questa la macro "b":

    Codice: 
    Sub b()
    Dim Pos As POINT
        GetCursorPos Pos
        Dim pLocation As POINT
        Dim lColour, lDC As Long
        'lDC = GetWindowDC(0)
        lDC = GetDC(0)
        Call GetCursorPos(pLocation)
        lColour = GetPixel(lDC, pLocation.X, pLocation.Y)
        RGBColor = (lColour Mod 256) & ", " & ((lColour \ 256) Mod 256) & ", " & (lColour \ 65536)
        intcolor = ActiveCell.Interior.ColorIndex
        Range("N4") = lColour
        Range("N4").Interior.Color = lColour
        Range("N5") = RGBColor
        Range("N6") = Range("N4").Interior.ColorIndex
        Range("N7") = pLocation.X
        Range("N8") = pLocation.Y
    '    MsgBox "Coordinate e Codice Colore" & vbLf & _
    '        " - dal Bordo di Sinistra:   " & Pos.X & vbLf & _
    '        " - dal Bordo Superiore:   " & Pos.Y & vbLf & _
    '        " - Integer                           " & lColour & vbLf & _
    '        " - RGB                                " & RGBColor & vbLf & _
    '        " - Excel ColorIndex           " & IntColor
    
    
    End Sub
    Alla cella N4 assegno il colore RGB, mentre alla cella N6 faccio prendere il "Color.Index" (pi¨ vicino) dal colore della cella N4.

    Non son sicuro che sia quello che chiedevi... comunque ti riallego il file.

    [EDIT]
    Mario, per la mia versione ho dovuto aggiungere "Ptrsafe" alla dichiarazione delle function.
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Posizione mouse e Colore su Immage in UserForm

    Ciao Alfredo, Ciao Tore
    @alfrimpa
    Grazie per l'indirizzo. Legger˛ con calma.

    @cromagno
    Una piccola "sbavatura". Nel fogli che hai inviato all'apertura mi dice che vuole una sub o una function e si blocca nelle Declare - credo che con la versione 2007 non riconosca PtrSafe.

    Ciao ad entrambi e ... resto in attesa.
    Mario

  5. #5
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Posizione mouse e Colore su Immage in UserForm

    @alfrimpa
    Ciao Alfredo,
    ma quello c'Ŕ giÓ nel file che ho allegato e serve SOLO per l'immagine sul Foglio.

    Prover˛ a ripercorrere la strada della ricerca che hai suggerito (e che giÓ avevo fatto).

    Ciao,
    Mario

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Posizione mouse e Colore su Immage in UserForm

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    @cromagno
    Una piccola "sbavatura". Nel fogli che hai inviato all'apertura mi dice che vuole una sub o una function e si blocca nelle Declare - credo che con la versione 2007 non riconosca PtrSafe.
    Ciao Mario,
    si te l'ho scritto alla fine (EDIT):
    [EDIT]
    Mario, per la mia versione ho dovuto aggiungere "Ptrsafe" alla dichiarazione delle function.
    tu dovresti togliere tutti i "Ptrsafe" dalle varie dichiarazioni di funzioni.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  7. #7
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Posizione mouse e Colore su Immage in UserForm

    Ciao Tore
    m'era sfuggito l'Edit. Ho fatto delle prove veloci sul programma che sto manipolando e ... miracolo!!! sembra che funzioni a dovere. In questo weekend prover˛ a stressarlo un po' e poi ti faccio sapere (per adesso non metto risolto).

    Ciao,
    Mario

  8. #8
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Posizione mouse e Colore su Immage in UserForm

    Salve a tutti
    Grazie all'intervento di cromagno ( :18: ) le macro suggerite e/o corrette funzionano alla perfezione.
    Nello spirito di condivisione allego il file sul quale ho fatto le prove e che segnala i dati richiesti.

    Buon sabato e buona domenica,
    Mario
    File Allegati File Allegati

  9. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Mouse che salta
    Di Silvio65 nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 21/02/17, 21:08
  2. Personalizzare men¨ tasto dx mouse
    Di Tikrit-01 nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 07/11/16, 15:37
  3. Personalizzare men¨ tasto dx mouse
    Di Tikrit-01 nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 07/11/16, 15:11
  4. Userform a (s)comparsa su posizionamento mouse
    Di ouebgi nel forum Domande su Excel VBA e MACRO
    Risposte: 29
    Ultimo Messaggio: 21/04/16, 11:48
  5. Rotelle del mouse in VBA
    Di Baloon_50 nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 21/12/15, 16:00

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
  •