Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajustement de commentaires

Ajustement de commentaires

2 réponses
Avatar
Infogroup
Bonjour à tous,

avec la macro ci-dessous qui je crois vient de JB, je voudrais savoir s'il
est possible de n'ajuster en automatique que la largeur ou la hauteur du
shape.

En effet, AutoSize = True ajuste automatiquement la largeur et la hauteur au
texte

For Each Wks In Worksheets
For Each Cmt In Wks.Comments
Cmt.Shape.OLEFormat.Object.AutoSize = True
With Cmt.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.Bold = False
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor =
42
Next Cmt
Next Wks

Merci par avance

Cordialement

Infogroup
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
JB
Bonjour,

A ma connaissance, ce n'est pas possible.

Sub AutoSizeHauteur()
largeur = 80
For Each s In Worksheets
For Each c In s.Comments
With c.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.Bold = False
End With
c.Shape.Fill.ForeColor.SchemeColor = 42
hauteur = Len(c.Text) * 100 / largeur
c.Shape.OLEFormat.Object.Width = largeur
c.Shape.OLEFormat.Object.Height = hauteur
Next c
Next s
End Sub

JB


On 20 déc, 14:04, "Infogroup" wrote:
Bonjour à tous,

avec la macro ci-dessous qui je crois vient de JB, je voudrais savoir s'i l
est possible de n'ajuster en automatique que la largeur ou la hauteur du
 shape.

En effet, AutoSize = True ajuste automatiquement la largeur et la haute ur au
texte

 For Each Wks In Worksheets
    For Each Cmt In Wks.Comments
        Cmt.Shape.OLEFormat.Object.AutoSize = True
            With Cmt.Shape.OLEFormat.Object.Font
                .Name = "Tahoma"
                .Size = 10
                .Bold = False
            End With
        Cmt.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.Sche meColor =
        42
    Next Cmt
 Next Wks

 Merci par avance

Cordialement

Infogroup


Avatar
Infogroup
Merci JB de m'avoir répondu.

Cordialement

Infogroup


"JB" a écrit dans le message de
news:
Bonjour,

A ma connaissance, ce n'est pas possible.

Sub AutoSizeHauteur()
largeur = 80
For Each s In Worksheets
For Each c In s.Comments
With c.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.Bold = False
End With
c.Shape.Fill.ForeColor.SchemeColor = 42
hauteur = Len(c.Text) * 100 / largeur
c.Shape.OLEFormat.Object.Width = largeur
c.Shape.OLEFormat.Object.Height = hauteur
Next c
Next s
End Sub

JB


On 20 déc, 14:04, "Infogroup" wrote:
Bonjour à tous,

avec la macro ci-dessous qui je crois vient de JB, je voudrais savoir s'il
est possible de n'ajuster en automatique que la largeur ou la hauteur du
shape.

En effet, AutoSize = True ajuste automatiquement la largeur et la hauteur
au
texte

For Each Wks In Worksheets
For Each Cmt In Wks.Comments
Cmt.Shape.OLEFormat.Object.AutoSize = True
With Cmt.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.Bold = False
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor > 42
Next Cmt
Next Wks

Merci par avance

Cordialement

Infogroup