Excel 2010 inserire la data su UserForm

[pacifico]

Gent.mi,

una gentilezza su Excel 2010.

Gradirei far apparire la data "OGGI()" su un UserForm ed il giorno della
settimana per esteso "domenica".

Inserendo un'immagine su UserForm con l'estensione GIF vi è la possibilità di
ridimensionarla automaticamente secondo le misure dell'UserForm? senza perdere
la qualità (distorsione ed ecc.)

Mi scuso per la domanda puerile, cordialmente saluto.

Domenico.

[pacifico]

Gent.mi,

faccio seguito alla precedente per comunicare che sono riuscito ad ottenere
l'apparizione su UserForm la data di "OGGI") mentre non riesco ad ottenere la
data estesa anche inserendo il seguente codice:

=TESTO(B4: "GGGG") o =GIORNO.SETTIMANA(B4) ed il ridimensionamento
dell'immagine sull'UserForm.

Nel ringraziare, saluto.

Domenico

[Anthony47]

Per il primo quesito, ad esempio

Codice: Seleziona tutto

TextBox1.Text = Format(Now, "dddd dd-mmm-yyyy")

Ti scrivera' "domenica 20-dic-2015".

Per non distorcere l'immagine devi impostare la proprieta' PictureSizeMode in "ModeZoom", nelle "Proprieta' della userform o tramite vba:

Codice: Seleziona tutto

UserForm1.PictureSizeMode = fmPictureSizeModeZoom


Ovviamente difficilmente coprirai l'intera area della userform, e se questo da fastidio bastera' ridimensionare la Width o Height della form in proporzione a Width e Height della Picture.

Ciao

[pacifico]

Gent.mo Antony,

ringrazio della gentilezza risolto, e colgo l'occasione di porgere gli
auguri per le feste ed un buon anno a te e famiglia e tutti gli amici del forum.

Domenico.