[VBA] Msgbox αλλαγή μεγέθους γραμματοσειράς και χρώματος

[Tasos]

Καλησπέρα σε όλους!

H VBA δεν μας δίνει τη δυνατότητα μορφοποίησης ενός Msgbox εκτός και αν καλέσουμε API των Windows (ξεφεύγουμε από το Office όμως).

Το Msgbox που παρέχεται στη VBA έχει τη δυνατότητα να εμφανίζει χαρακτηριστικά εικονίδια
που μπορεί να ορίσει ο προγραμματιστής αναλόγως το περιεχόμενο του κειμένου.
Για παράδειγμα:

Sub testMsgbox()
    MsgBox "Ερώτηση", vbYesNo + vbQuestion + vbDefaultButton2, "Τίτλος"
    MsgBox "Ερώτηση", vbYesNoCancel + vbQuestion + vbDefaultButton1, "Τίτλος"
    MsgBox "Ερώτηση", vbAbortRetryIgnore + vbQuestion + vbDefaultButton3, "Τίτλος"
    MsgBox "Ερώτηση", vbInformation + vbRetryCancel, "Τίτλος"
    MsgBox "Πληροφορία", vbInformation, "Τίτλος"
    MsgBox "Πληροφορία", vbInformation + vbSystemModal, "Πάντα σε πρώτο πλάνο του συστήματος"
    MsgBox "Γκρίνια", vbExclamation, "Τίτλος"
    MsgBox "Επικίνδυνο σφάλμα", vbCritical, "Τίτλος"
End Sub

Οτιδήποτε άλλο χρησιμοποιηθεί στη θέση του κλασικού Msgbox, πίστεψε με δεν θα θεωρηθεί επαγγελματικό.

Ωστόσο μπορείς στη θέση του MsgBox να χρησιμοποιήσεις UserForm και να μορφοποιήσεις τα περιεχόμενα του όπως επιθυμείς.

Φιλικά

Τάσος