VBA Shape.Width ???

[bof]

Bonsoir.
Le problème n'est pas simple à expliquer textuellement.
Il s'agit de fixer la largeur d'une shape tout en gardant la possibilité de modifier sa hauteur.

Le problème est très explicite sur la pièce jointe.
Merci,
A+

 

[Papou-net]

Re : VBA Shape.Width ???

Bonsoir bof,

En fixant la propriété Width (comme tu l'évoques dans le titre), ça semble répondre à ta question:

Sub TBoxMove(k)
With ActiveSheet.DrawingObjects(1)
   .Formula = "=" & [Nom].Address
   .Top = Cells(1).Top
   .Left = Cells(1, k + 2).Left
   .Height = Cells(1).Height * [Nom].Rows.Count
   .Width = 100
End With
Exit Sub
End Sub

Il suffit de changer la valeur 100 pour l'adapter à tes besoins.

Cordialement.

 

[Modeste geedee]

Re : VBA Shape.Width ???

Bonsour®
????

Sub TBoxMove(k)
With ActiveSheet.DrawingObjects(1)
   .Formula = "=" & [Nom].Address
   .Top = Cells(1).Top
   .Left = Cells(1, k + 2).Left
   .Height = Cells(1).Height * [Nom].Rows.Count
   '-------ajustement = largeur (pixels) de la colonne B
   .Width = [C1].Left - [B1].Left
End With
Exit Sub
End Sub

 

[jpb388]

Re : VBA Shape.Width ???

Bonsoir à tous
ou clic droit sur l'image
taille et propriété
décocher les 2 cases

 

[bof]

Re : VBA Shape.Width ???

Bonsoir,
Aucune des solutions VBA ne semble convenir :

En règle générale aucune ne résiste à la réinitialisation. (s'il ne reste que B1)
papou-net : ne résiste pas à la réinitialisation.
Modeste : ne s'étend plus en hauteur et ne diminue plus non plus.

J'avais en effet remarqué qu'on ne peut fixer à la fois la hauteur et la largeur car le respect des proportions posait problème.

C'est jpb388 qui déniche la bonne solution !

Merci !

A+

 

[Modeste geedee]

Re : VBA Shape.Width ???

Bonsour®

En règle générale aucune ne résiste à la réinitialisation. (s'il ne reste que B1)
Modeste : ne s'étend plus en hauteur et ne diminue plus non plus.

????

J'avais en effet remarqué qu'on ne peut fixer à la fois la hauteur et la largeur car le respect des proportions posait problème.

Sub TBoxMove(k)
 With ActiveSheet.DrawingObjects(1)
    .ShapeRange.LockAspectRatio = msoFalse '  <<<<<< !!!
    .Formula = "=" & [Nom].Address
    .Top = Cells(1).Top
    .Left = Cells(1, k + 2).Left
    .Height = [Nom].Height
    '-------ajustement = largeur (pixels) de la colonne B
    .Width = [C1].Left - [B1].Left
 End With
 Exit Sub
 End Sub

 

[bof]

Re : VBA Shape.Width ???

Bonsoir,

.ShapeRange.LockAspectRatio = msoFalse

C'est noté, merci.

A+