EXCEL Visualizzare testo al passaggio mouse

[Francesco53]

Buona giornata a tutti, una curiosità che non sono riuscito ad appagare.
Creando dei pulsati su un foglio Excel, posso tranquillamente inserire una immagine nel pulsante,
la mia richiesta è però la seguente, è possibile, come succede ad esempio con i pulsanti in Access,
far visualizzare un testo descrittivo dell'azione che esegue il pulsante?
Ringrazio anticipatamente tutti.
Francesco

[Flash30005]

L'unica cosa che mi viene al momento è poter cambiare l'etichetta al comando al passaggio del mouse

Ammettendo che il pulsante comando abbia nome "CommandButton1"
nel foglio dove è posto il comando, inserisci questo codice

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Miamacro  '<<<< richiami la tua macro
CommandButton1.Caption = "Comando"
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Caption = "Prova"
End Sub


In pratica al passaggio del mouse l'etichetta cambia e assume nome "Prova"
dopo l'esecuzione macro torna ad essere comando o altro

ciao

[Zer0Kelvin]

Salve a tutti.
Quello che chiedi si può fare purtroppo solamente se i pulsanti sono inseriti in una userform.
In quel caso è possibile impostare la proprietà ControlTipText, che mostra un testo quando il puntatore è sul pulsante.
Il sistema proposto da Flash va bene solamente se dopo clicchi sul pulsante, altrimenti la caption del pulsante rimane modificata.
Se ci sono diversi pulsanti sarebbe da prendere in considerazione l'utilizzo di una userform.

PS: stiamo parlando del pulsante ActiveX, non dell'omonimo controllo modulo.

[Francesco53]

Grazie Flash,
io pensavo a qualcosa tipo il fumetto che esce in access quando si programma un pulsante,
oppure come succede nelle icone di excel che appare un fumetto con la descrizione del comando.
Ringrazio anche Zer0Kelvin per il suggerimento, solo che i pulsanti io li utilizzavo sul foglio principale
per eseguire delle macro, l'utilizzo della userform non lo avevo previsto.
Francesco

[Zer0Kelvin]

Se vuoi questa è una macro che utilizza lo stesso principio e poi risistema automaticamente il titolo del pulsante.

Codice: Seleziona tutto

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static OldCaption As String
Const ControlTip = "Il tuo testo"
    With Me.CommandButton1
        If X >= .Width * 0.2 And X <= .Width * 0.8 And _
        Y >= .Height * 0.2 And Y <= .Height * 0.8 Then
            If .Caption <> ControlTip Then
                OldCaption = .Caption
                .Caption = ControlTip
            End If
        Else
            If OldCaption <> "" Then .Caption = OldCaption
            OldCaption = ""
        End If
    End With
End Sub


Quello che dici forse si potrebbe fare usando lo stesso principio e CommandBars.ShowPopUp, in modo da visualizzare un piccolo menu a comparsa con solo la descrizione che desideri, ma forse il gioco non vale la candela.
Dipende da quanto bisogno hai di queste descrizioni...

[Flash30005]

Leggi quanto scritto da Zer0Kelvin

io invece pensavo proprio al fumetto...
creando un pulsante puù grande e posizionato dietro al comando vero e proprio), e rendendolo trasparente avrai la cosidetta "cornice" che funzionerà con il mouse_move per ripristinare il tutto
Quindi creerai una callout con testo all'interno che renderai visibile se il mouse passa sul comando1 e nascosta se passa sul comando2 che fa da cornice
i codici sono questi e dovrai adattarli

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Miamacro  '<<<< richiami la tua macro
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Caption = "Prova"
ActiveSheet.Shapes("AutoShape 316").Visible = True
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Caption = "Comando"
ActiveSheet.Shapes("AutoShape 316").Visible = False  ' <<<< controlla il nome della tua callout
End Sub


Invio questo file

Ciao

[Zer0Kelvin]

Si può fare anche con un solo pulsante:

Codice: Seleziona tutto

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.CommandButton1
        If X >= .Width * 0.2 And X <= .Width * 0.8 And _
        Y >= .Height * 0.2 And Y <= .Height * 0.8 Then
            ActiveSheet.Shapes("AutoShape 316").Visible = msoTrue
        Else
            ActiveSheet.Shapes("AutoShape 316").Visible = msoFalse
        End If
    End With
End Sub


Qui c'è la cornice "virtuale" costituita dalla condizione dell'if...then.

[Francesco53]

Un saluto ad entrambi,
vi ringrazio per le vostre indicazioni, purtroppo mi diventa difficile per le mie poche conoscenze
applicare al meglio i vostri suggerimenti. Penso che sia comunque una deficienza di Excel la non
possibilità di inserire quanto da me richiesto, ripeto in Access è previsto ma purtroppo non in excel.
Grazie di cuore
Francesco