Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

TESTO CASELLA COMBINATA

641 views
Skip to first unread message

Floppy

unread,
Oct 27, 2005, 4:40:11 AM10/27/05
to
Ciao a tutti,
ho creato con i moduli una casella combinata(a tendina) collegata ad un
elenco.
Il testo della tendina risulta troppo piccolo come posso cambiare la
dimensione del carattere?

Grazie in anticipo

Norman Jones

unread,
Oct 27, 2005, 6:08:48 AM10/27/05
to
Floppy:

'------------------------------------------------

Ciao Floppy,

Vede:

http://www.contextures.com/xlDataVal10.html

---
Regards,
Norman


Floppy

unread,
Oct 27, 2005, 6:28:09 AM10/27/05
to
Grazie mille ma se è possibile non volevo creare il pulsante con visual basic.
E' una cosa possibile?

"Norman Jones" ha scritto:

Norman Jones

unread,
Oct 27, 2005, 6:43:38 AM10/27/05
to
Ciao Floppy,

> Grazie mille ma se è possibile non volevo creare il pulsante con
> visual basic.
> E' una cosa possibile?

Non credo che questo sia possibile senza VBA

Hai provato scaricare la cartella di esempi?

---
Regards,
Norman


ivano

unread,
Oct 27, 2005, 7:23:34 AM10/27/05
to

"Floppy" <Flo...@discussions.microsoft.com> ha scritto nel messaggio
news:4E7E2B63-8389-4390...@microsoft.com...

Ciao
Puoi adattare il foglio in modo da poter utilizzare uno zoom del foglio piů
grande del 100%
ivano


Norman Jones

unread,
Oct 28, 2005, 12:34:59 AM10/28/05
to
Ciao Floppy,

Usando l'idea buona di Ivano qui vicino, si potrebbe anche cambiare lo zoom
dinamicamente, dal valore normale, per le celle non convalidate , a
(diciamo) 140% per le celle convalidate:

'================>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range

On Error GoTo XIT

Application.EnableEvents = False

Set rng = Cells.SpecialCells(xlCellTypeAllValidation)

If Not Intersect(rng, Target) Is Nothing Then
ActiveWindow.Zoom = 140
Else
ActiveWindow.Zoom = 100
End If
XIT:
Application.EnableEvents = True
End Sub
'<<================

Si tratta di una routine d'evento SelectionChange del foglio. Per
utilizzarla, con il tasto destro fai clic sulla linguetta del foglio, scegli
"Visualizza codice" e nella finestra del codice incollaci la routine di
sopra. (Poi torna in Excel con Alt-F11):

---
Regards,
Norman


0 new messages