messaggio in un pulsante

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ciao a tutti,

nel foglio allegato c'è un pulsante verde per cancellare la colonna A.

E' possibile che se mi avvicino nel pulsante compaia un messaggio con il testo che c'è in F2 ?

Grazie

Allegati:

You must be logged in to view attached files.

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Prova a passare il mouse sull'immagie col cestino. Vedi cosa è diventato visibile?

Il codice utilizzato è il seguente:

Option Explicit

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim farXmargin As Single, farYmargin As Single
    Dim marginSize As Single
    Application.EnableEvents = False
    marginSize = 5
    
    farXmargin = Image1.Width - marginSize
    farYmargin = Image1.Height - marginSize
    
    If X < marginSize Or Y < marginSize Or X > farXmargin Or Y > farYmargin Then
        Foglio1.Shapes("mInfo").Visible = False
    Else
        Foglio1.Shapes("mInfo").Visible = True
    End If
    Application.EnableEvents = True
End Sub

Vedi se è quello che cercavi. Fai sapere. Ciao,

Mario

Allegati:

You must be logged in to view attached files.

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Grazie Mario,

come soluzione va bene ma come adattarla al pulsante verde?

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Non puoi adattarla! Cioè devi capire come ho fatto ed adeguarti. Mi spiego.

I due oggetti che vedi sono due immagini (ActiveX). Nella prima, che ho lasciato come denominazione Image1, ho inserito l'immagine del cestino. Nella seconda, che ho denominato mInfo, ho inserito la tua dicitura che ho salvato come immagine .jpg. La macro dà l'effetto di nascondere/scoprire la seconda immagine.

La materiale cancellazione del contenuto della colonna A (cioè il lavoro della tua macro) andrebbe inserito dopo:

Foglio1.Shapes("mInfo").Visible = True

Prova e fai sapere. Ciao,

Mario

[Autore]

Articoli