agrandir une case à cocher

Salut François,
Je peux me tromper mais je crois que ce n'est pas possible.
Hervé.

"francois" <francois.roullet@cgr.fr> a écrit dans le message news:
094201c39945$98eb3390$a301280a@phx.gbl...
Bonjour à tous, sur excel 2000, je sais insérer une case à
cocher depuis la barre d'outil formulaire, mais je ne sais
pas comment faire pour agrandir uniquement la case à
cocher et non pas sa fenêtre de selection.

avez vous une idée???

-----Message d'origine-----
Hervé à dit ,
Je peux me tromper mais je crois que ce n'est pas
possible.

Hervé.

l'incrédulité n'est pas une certitude !!!!
;-)))

macro à mettre dans un module standard
puis à appeler à partir d'une feuille

Public I_GC As Boolean '--variable à utiliser par ailleurs

Sub Grosse_Case()
Application.ScreenUpdating = False
montexte = " Grosse case à cocher"
On Error GoTo CreeMaCase '-s'il n'y en a pas on la crée
With ActiveSheet.TextBoxes("Macase")
If Left(.Text, 1) = "o" Then
.Text = Chr(253) & montexte
I_GC = True ' - si coché
Else
.Text = "o" & montexte
I_GC = False ' - si non coché
End If
'----- gestion de la coche
With .Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.Size = 72
End With
With .Characters(Start:=2, Length:=Len(montexte)).Font
.Name = "Arial"
.Size = 48
End With
End With
Application.ScreenUpdating = True
Exit Sub
CreeMaCase:
' creer une case à cocher
Dim r As Range
Set r = ActiveSheet.Range("B2")
'-----la case pourra etre ensuite déplacée
ActiveSheet.TextBoxes.Add r.Left, r.Top, r.Width * 4,
r.Height * 4
With ActiveSheet.TextBoxes(ActiveSheet.TextBoxes.Count)
.Name = "Macase"
.Text = "o" & montexte
.AutoSize = True
.OnAction = "Grosse_Case" ' c'est le nom de la macro
qui gere la coche
End With
Resume
End Sub

;-)))
@+

Pffff......
Il suffit de changer le zoom pour que "ça" grossisse !
;-)
AV