Ajustement de commentaires

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #18185971
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"
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


Infogroup
Le #18186591
Merci JB de m'avoir répondu.

Cordialement

Infogroup


"JB" 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"
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


Publicité
Poster une réponse
Anonyme