Modificare impostazioni di un Msgbox
Alexa
Ho scritto una macro nel codice workbook che recita questo testo:
Private Sub Workbook_Open()
MsgBox ("Per una nuova analisi compila le informazioni preliminari
situate nel foglio DATI")
Sheets("DATI").Select
Range("B2").Select
End Sub
Ma all'apertura del file per il mio scopo il testo citato nel Msgbox e
troppo piccolo, esiste la possibilità di modificare dimensione,
carattere e magari colori del testo scritto nel Msgbox.
Grazie by Alexa
Mauro Gamberini
*****************************************
Puoi crearti un tuo MessageBox tramite
una UserForm.
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
Maurizio Borrelli
news:1146729909.6...@v46g2000cwv.googlegroups.com...
RISPOSTA:
Ciao, Alexa.
Usa una convalida personalizzata con codice Visual Basic e uno UserForm
e potrai fare (quasi) tutto quel che ti passa in mente e che con le tue
conoscenze (eventualmente aiutato dai frequentatori di questo ng) sarai in
grado di realizzare.
--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio Borrelli, Microsoft Office Access MVP
-------- http://mvp.support.microsoft.com/
?SPQR(C)
X RIO - Risorse in italiano per gli utenti di office
-------- http://www.riolab.org/
Thunder
"Alexa" <axl...@libero.it> ha scritto nel messaggio
news:1146729909.6...@v46g2000cwv.googlegroups.com...
Ciao Alexa,
che io sappia, il carattere su un oggetto tipo Msgbox, non può essere
cambiato. Magari qualcuno mi smentirà.
Per ovviare al tuo problema, facendo affidamento per ora alle mie
conoscenze, potresti fare così:
- crei una UserForm
- inserisci un'etichetta con il tuo testo (e ne imposti il carattere) e un
pulsante che permetta di uscire dalla form
- sull'evento Workbook_Open() imposti la visualizzazione della form (show).
Di aiuto spero di esserti stato (non sono scemo, è solo che Franz (ciao)
pretende i diritti d'autore su una frase simile a questa! :-) )
Ciao
Thunder
Franz Verga
*Thunder* ha scritto:
>
> Di aiuto spero di esserti stato (non sono scemo, è solo che Franz
> (ciao) pretende i diritti d'autore su una frase simile a questa! :-) )
Ma... ROTFL!!!
I diritti valgono anche per tutte le permutazioni delle parole all'interno
della frase... ;-)
--
Ciao
Franz Verga
Alexa
Vi ringrazio per la fiducia ma purtroppo le user form non sono il mio
forte comunque cercherò di documentarmi utilizzando la guida in linea
e il post e se ho dei problemi so su cui contare.
Grazie
Alexa
Ho fatto come mi hai detto:
Creato un user form (molto semplice), inserito un' etichetta con il mio
testo e un pulsante con la scritta Ok
Il nuovo tracciato risulta essere cosi scritto:
Private Sub Workbook_Open()
UserForm1.Show
Sheets("DATI").Select
Range("B2").Select
End Sub
All'apertura del file la mia user form si materializza ma se clicco sul
bottone "ok" non succede nulla.
Mi sa che non ho inserito il commando giusto al bottone che dovrebbe
chiudere l'user form e continuare la macro andando sulla cella B2 del
foglio dati.
Grazie per eventuali aiuti... by Alexa
Thunder
Ciao Alexa,
allora in Workbook_Open() lascia solo UserForm1.Show.
Fai doppio click sul pulsante della form e inserisci:
Sheets("DATI").Activate
Range("B2").Select
UserForm1.Hide
Ciao
Thunder
Alexa
Thunder
> Perfetto Funziona grazie 1000 by Alexa
>
Gracias también por su feedback. :-)
Ciao
Thunder
PS: Franz (ciao), anche se la tua frase è tradotta, pretendi i diritti
d'autore? :-D
Franz Verga
*Thunder* ha scritto:
Ciao Thunder. E' registrata per tutte le lingue del mondo, ed anche per
combinazioni tra le varie lingue... ;-)
--
Ciao
Franz Verga