DEFINIR la taille de police d un commentaire par vba

[Evelynetfrancois]

bonjour tout le monde
lors de l insertion d un commentaire dans une cell , est-il possible par VBA , ou quelque part avec excel ,de definir une taille de font superieur par defaut??
l'enregistreur ne me donne rien !!!!
merci d avance pour toutes vos idées
bonne apes midi
E et F

 

[BOISGONTIER]

Re : DEFINIR la taille de police d un commentaire par vba

Bonjour,

Saisie d'un commentaire sur double-clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Comment Is Nothing Then
     Target.AddComment ' Création commentaire
     Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
     Target.Comment.Shape.OLEFormat.Object.Font.Size = 7
     Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
     SendKeys "+{F2}"
     Cancel = True
  End If
End Sub

JB

 

[Pierrot93]

Re : DEFINIR la taille de police d un commentaire par vba

Bonjour EvelyneEtFrancois

pour modifier la taille de police de caractère d'un commentaire, essaye le code ci dessous :

Range("C3").Comment.Shape.DrawingObject.Font.Size = 11

mais ce n'est pas pour modifier la taille par défaut de tous les commentaires.

bonne fin d'après midi
@+

 

[Evelynetfrancois]

Re : DEFINIR la taille de police d un commentaire par vba

BONSOIR BOISGONTIER et Pierrot93
un tres grand MERCI

vos deux propositions bien que differentes me seront tres utile ,
cependant j ose insister ....
le cadre du commentaire reste petit malgré la police de "bonne" taille.

Est il possible , comme pour la font d augmenter cette taille par defaut?
l enregistreur donne
Selection.ShapeRange.ScaleWidth 4.94, msoFalse, msoScaleFromTopLeft
c est joli , mais je n arrive pas a l integrer aux macros proposées !!

quand vous avez le temps .......................

merci et bonne soirée

E et F

 

[Pierrot93]

Re : DEFINIR la taille de police d un commentaire par vba

Re

regarde le code ci dessous, pour une taille automatique :

Range("C3").Comment.Shape.DrawingObject.AutoSize = True

@+

 

[Evelynetfrancois]

Re : DEFINIR la taille de police d un commentaire par vba

SUPER
ca marche ......evidement !!!
cela me premet egalement de mettre
Target.Comment.Shape.OLEFormat.Object.AutoSize = True
dans la macro propose par BOISGONTIER
avec un resultat tres convinquant

merci pour tout!!!!!!!

E et F

 

[BOISGONTIER]

Re : DEFINIR la taille de police d un commentaire par vba

Pour changer à posteriori la taille de tous les commentaires d'une feuille:

Sub AutoSize()
For Each c In ActiveSheet.Comments
c.Shape.TextFrame.AutoSize = True
Next c
End Sub


Pour changer à posteriori la taille de la police des commentaires d'une feuille:

Sub ModifPoliceTous10()
For Each i In ActiveSheet.Comments
i.Shape.OLEFormat.Object.Font.Size = 10
Next i
End Sub

JB

 

[Evelynetfrancois]

Re : DEFINIR la taille de police d un commentaire par vba

super bien !!BOISGONTIER
juste une tite info:
mais comment tu as trouver :SendKeys "+{F2}"
ça correspond a quelle manip de clavier ??
si je fais F2 au clavier cela ne fait rien !!!
merci
juste pour l info...........
bonne journée

E et F

 

[BOISGONTIER]

Re : DEFINIR la taille de police d un commentaire par vba

Bonjour,

>mais comment as tu trouvé :SendKeys "+{F2}">ça correspond à quelle manip de clavier ??
>si je fais F2 au clavier cela ne fait rien !!!

+ correspond à la touche Maj

Maj+F2 fait entrer dans la zone commentaire d'une cellule

Pour obtenir les codifs des touches, sélectionner SendKeys en VBA puis F1

JB
Formation Excel VBA JB