DEFINIR la taille de police d un commentaire par vba

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Avril 2008

• #2

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

Bonjour,

Saisie d'un commentaire sur double-clic

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Avril 2008

• #3

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 4 Avril 2008

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Avril 2008

• #5

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

Re

regarde le code ci dessous, pour une taille automatique :

Code:

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

@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 4 Avril 2008

• #6

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Avril 2008

• #7

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 5 Avril 2008

• #8

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 5 Avril 2008

• #9

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

 

Vote positif 0 Vote négatif