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
poc
Bonjour,
Sub TailleFixeCommentaire() For Each C In ActiveSheet.Comments C.Visible = True C.Shape.Width = 350 'largeur C.Shape.Height = 50 ' Hauteur C.Shape.Line.Transparency = 0# 'degré d'opacité de la bordure C.Shape.Line.ForeColor.SchemeColor = 8 'bordure en noir C.Shape.Line.Weight = 0.25 'épaisseur de la bordure Next C End Sub à+ Poc "Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le message de news:
Bonjour à toutes et tous,
En VBA j'ajoute des commentaires à des cellules, mais je n'arrive pas à redimensionner ces commentaires à une hauteur et largeur fixe.
Comment puis-je faire ?
Merci pour votre aide. Thierry
Bonjour,
Sub TailleFixeCommentaire()
For Each C In ActiveSheet.Comments
C.Visible = True
C.Shape.Width = 350 'largeur
C.Shape.Height = 50 ' Hauteur
C.Shape.Line.Transparency = 0# 'degré d'opacité de la bordure
C.Shape.Line.ForeColor.SchemeColor = 8 'bordure en noir
C.Shape.Line.Weight = 0.25 'épaisseur de la bordure
Next C
End Sub
à+
Poc
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: ukea9xOMIHA.4948@TK2MSFTNGP02.phx.gbl...
Bonjour à toutes et tous,
En VBA j'ajoute des commentaires à des cellules, mais je n'arrive pas à
redimensionner ces commentaires à une hauteur et largeur fixe.
Sub TailleFixeCommentaire() For Each C In ActiveSheet.Comments C.Visible = True C.Shape.Width = 350 'largeur C.Shape.Height = 50 ' Hauteur C.Shape.Line.Transparency = 0# 'degré d'opacité de la bordure C.Shape.Line.ForeColor.SchemeColor = 8 'bordure en noir C.Shape.Line.Weight = 0.25 'épaisseur de la bordure Next C End Sub à+ Poc "Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le message de news:
Bonjour à toutes et tous,
En VBA j'ajoute des commentaires à des cellules, mais je n'arrive pas à redimensionner ces commentaires à une hauteur et largeur fixe.
Comment puis-je faire ?
Merci pour votre aide. Thierry
JB
Bonjour,
Sub tailleZoneCommentaire() For Each c In ActiveSheet.Comments c.Shape.Width = 60 c.Shape.Height = 40 Next c End Sub
JB
On 27 nov, 12:55, "Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> wrote:
Bonjour à toutes et tous,
En VBA j'ajoute des commentaires à des cellules, mais je n'arrive pas à redimensionner ces commentaires à une hauteur et largeur fixe.
Comment puis-je faire ?
Merci pour votre aide. Thierry
Bonjour,
Sub tailleZoneCommentaire()
For Each c In ActiveSheet.Comments
c.Shape.Width = 60
c.Shape.Height = 40
Next c
End Sub
JB
On 27 nov, 12:55, "Thierry Euzenot"
<thierry.euzenot*arobase*gmail.com> wrote:
Bonjour à toutes et tous,
En VBA j'ajoute des commentaires à des cellules, mais je n'arrive pas à
redimensionner ces commentaires à une hauteur et largeur fixe.