Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz() For Each C In Selection With C.Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 12 .Color = vbBlue End With C.Comment.Shape.TextFrame.AutoSize = true Next end sub
AV
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz()
For Each C In Selection
With C.Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 12
.Color = vbBlue
End With
C.Comment.Shape.TextFrame.AutoSize = true
Next
end sub
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz() For Each C In Selection With C.Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 12 .Color = vbBlue End With C.Comment.Shape.TextFrame.AutoSize = true Next end sub
AV
Christian.L
Merci Alain
C'est exactement ce que je cherchais
C.L.
"AV" a écrit dans le message de news:
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz() For Each C In Selection With C.Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 12 .Color = vbBlue End With C.Comment.Shape.TextFrame.AutoSize = true Next end sub
AV
Merci Alain
C'est exactement ce que je cherchais
C.L.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:OotdPutqEHA.2724@TK2MSFTNGP14.phx.gbl...
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz()
For Each C In Selection
With C.Comment.Shape.OLEFormat.Object.Font
.Name = "Arial"
.Size = 12
.Color = vbBlue
End With
C.Comment.Shape.TextFrame.AutoSize = true
Next
end sub
Je cherche sous VBA à modifier la police et la taille des commentaires ?
Sub zzz() For Each C In Selection With C.Comment.Shape.OLEFormat.Object.Font .Name = "Arial" .Size = 12 .Color = vbBlue End With C.Comment.Shape.TextFrame.AutoSize = true Next end sub
