Largeur objet-colonne

Bonsoir et bienvenue au club.
Essaie :
HauteurEnPoints = Range("A1").Height
LargeurEnPoints = Range("A1").Width
Cordialement.
Daniel
"PiL" <PiL@discussions.microsoft.com> a écrit dans le message de news:
E0AD5F52-E9F3-495F-B79A-C5B896473574@microsoft.com...

Bonjour
c'est mon premier passage dans ce forum
je souhaite dans une macro créer un objet TextBox qui reprenne l'aspect et
la valeur d'une cellule et qui la recouvre entièrement.
Je récupére la valeur et les mises en forme et les applique à l'objet ;
j'arrive également à modifier les largeurs et hauteurs mais pas en
reprenant
les dimensions de la cellule.
Comment récupérer les largeurs de colonne et hauteur de ligne en points
???
Merci d'avance

Bonjour Pil,

Pour avoir un textbox issu de la barre d'outils "Contrôle" de la même dimension que la cellule G5 sur la feuil10

'-------------------------------
Sub DimensionTextbox()

Dim T As Object
With Worksheets("Feuil10")
Set T = .Shapes("Textbox1").OLEFormat.Object
With .Range("G5")
T.Top = .Top
T.Left = .Left
T.Height = .Height
T.Width = .Width
End With
End With
End Sub
'-------------------------------


Salutations!



"PiL" <PiL@discussions.microsoft.com> a écrit dans le message de news: E0AD5F52-E9F3-495F-B79A-C5B896473574@microsoft.com...
Bonjour
c'est mon premier passage dans ce forum
je souhaite dans une macro créer un objet TextBox qui reprenne l'aspect et
la valeur d'une cellule et qui la recouvre entièrement.
Je récupére la valeur et les mises en forme et les applique à l'objet ;
j'arrive également à modifier les largeurs et hauteurs mais pas en reprenant
les dimensions de la cellule.
Comment récupérer les largeurs de colonne et hauteur de ligne en points ???
Merci d'avance