Hai gia' la soluzione data da FRIEDRICH per visualizzare il "delivery truck" in una cella...
Visto che ti interessava anche il MessageBox, per gestire i caratteri unicode devi ricorrere al msgbox di Windows, nella versione MessageBoxW.
Per questo, in cima a un modulo devi dichiarare la funzione:
- Codice: Seleziona tutto
#If VBA7 Then
Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongPtr, ByVal lpText As LongPtr, Optional ByVal lpCaption As LongPtr, Optional ByVal wType As Long = 0) As Long
#Else
Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
#End If
Poi nello stesso modulo userai qualcosa come
- Codice: Seleziona tutto
Sub MsgBoxW()
Dim MBText As String, MBTitle As String
MBText = ChrW(55357) & ChrW(56986) & ": Arrivo atteso alle 12:00" 'Il messaggio
MBTitle = "Messaggio per te..." 'Il titolo del msgbox
Rispo = MessageBoxW(0, StrPtr(MBText), StrPtr(MBTitle), 0) '0=Ok only 'Show
End Sub
Per quanto riguarda il testo di una mail, se usi il formato html per il body della mail allora dovresti riuscire a visualizzare l'icona usando l' Html Escape code.
Io ho usato, per prova
- Codice: Seleziona tutto
.htmlBody = "🚚 " & ": Arrivo atteso alle 12:00"
Giacche' ci siamo, copiando quando ti ha proposto FRIEDRICH, se vuoi inserire l'icona in una cella allora potremmo anche creare una funzione ad hoc; ad esempio, da mettere in un Modulo standard del vba:
- Codice: Seleziona tutto
Function myTruck(Optional TruckNum As Long = 1) As String
Dim I As Long
For I = 1 To TruckNum
myTruck = myTruck & ChrW(55357) & ChrW(56986)
Next I
End Function
Poi in una cella potrai scrivere la formula
- Codice: Seleziona tutto
=myTruck()
Se vuoi piu' icone puoi specificare il numero; es
- Codice: Seleziona tutto
=myTruck(2)
Inutile dire che potrai combinare myTruck come tutte le funzioni Excel; es
- Codice: Seleziona tutto
=myTruck() & ": In arrivo per le 12:00"
Ciao