Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL Visualizzare testo al passaggio mouse

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL Visualizzare testo al passaggio mouse

Postdi Francesco53 » 27/05/12 09:58

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Flash30005 » 27/05/12 11:04

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Zer0Kelvin » 27/05/12 11:25

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.
Ultima modifica di Zer0Kelvin su 27/05/12 11:34, modificato 1 volte in totale.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Francesco53 » 27/05/12 11:31

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Zer0Kelvin » 27/05/12 12:07

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... :arrow:
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Flash30005 » 27/05/12 13:27

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Zer0Kelvin » 27/05/12 14:27

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.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: EXCEL Visualizzare testo al passaggio mouse

Postdi Francesco53 » 27/05/12 15:23

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Visualizzare testo al passaggio mouse":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti