Domanda Come visualizzare un tooltip descrittivo al passaggio del mouse su un'immagine

[Terio]

Dove l’OP ha specificato di usare un Mac?

Da nessuna parte, come da nessuna parte ho scritto che l'OP non può usarli.

È noto che sul Mac gli ActiveX non ci sono.

Repetita iuvant

Ciao.

 

[alfrimpa]

Da nessuna parte, come da nessuna parte ho scritto che l'OP non può usarli.

E allora, ma sarà un mio limite, non capisco il senso del tuo intervento.

 

[Terio]

non capisco il senso del tuo intervento

Perché le limitazioni sull'uso degli ActiveX riguardano anche quello che ho riportato, non mi sembra aver detto inesattezze,
ciao.

 

[alfrimpa]

io vorrei che se si passa sul pulsante stampa compaia una scritta o pop-up con descrizione, in questo caso sarebbe stampa file excel.

Purtroppo con controlli ActiveX messi sul foglio (al contrario di quanto accade per i controlli messi su una userform) questi non dispongono della proprietà ControlTipText per cui passandoci sopra con il mouse non è possibile visualizzare un pop-up con descrizione.

In teoria è possibile aggirare il problema ma, a mio modo di vedere, solo per visualizzare un pop-up non ne vale la pena comunque ti descrivo brevemente la procedura.

1. Inserisci dove è più o meno la stampante una etichetta (label) activeX impostando lo sfondo trasparente (per farlo occorre che tu abbia la scheda Sviluppo sulla barra multifunzione);
2. Posiziona l'immagine della stampante più o meno al centro di tale etichetta;
3. Inserisci un'altra etichetta (anch'essa con sfondo trasparente) e posizionala sopra l'immagine della stampante;
4. Inserisci una terza etichetta posizionandola vicino l'icona della stampante che abbia come testo "stampa file excel"

Questo il codice da associare alla prima label che nasconde il tooltip

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = False
End Sub

Questo il codice da associare alla seconda label per visualizzare il tooltip

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = True
End Sub

Questo invece il codice, da abbinare sempre alla seconda label, per lanciare la stampa

Private Sub Label2_Click()
Dim Risposta As Integer

' Mostra il pop-up di avviso
Risposta = MsgBox("Vuoi davvero procedere con la stampa del file Excel?", vbYesNo + vbQuestion, "Conferma Stampa")

' Se l'utente clicca su "Sì" (Yes)
If Risposta = vbYes Then
ActiveSheet.PrintOut
MsgBox "Stampa inviata con successo!", vbInformation, "Operazione completata"
Else
' Se l'utente clicca su "No"
MsgBox "Stampa annullata.", vbInformation, "Operazione annullata"
End If
End Sub

Per funzionare funziona ma talvolta appaiono piccole "discrepanze".

Mi rendo anche conto che per mettere su questo ambaradan delle conoscenze di VBA si devono possedere (e mi pare non sia il tuo caso) per cui per avere solo il tooltip che appare e scompare come dicevo prima ne vale la pena?

Non basta ingrandire l'icona della stampante.

Volendo si può anche usare un pulsante ActiveX (CommandButton) dove è possibile inserire al suo interno l'immagine della stampante.

Il pulsante avrebbe questo aspetto



P.S. Cambio il titolo della discussione perchè il problema non è come inserire pulsanti su un foglio.

 

[alex1970]

Grazie 1000, gentilissimo, stasera provo e ti aggiorno, ma immagino già che funzioni al 100%, grazie

 

[alfrimpa]

ma immagino già che funzioni al 100%, grazie

Per funzionare funziona ma non so se è quello che ti aspetti.

Per me non ne vale la pena ma sei tu che devi decidere