Pixels

[VIARD]

Bonjour à tous et à toutes

Existe-t-il un moyen de connaître la largeur en pixel par VBA d'une colonne ou d'une ligne?
je recupère bien la largeur d'une colonne par
ActiveCell.ColumnWidth
mais pas le nombre de pixels.

Salutation
Jean-Paul

 

[VIARD]

Re : Pixels

Re bonjour

Bon je n'ai pas de réponse, alors je pose ma question autrement.
Sur une feuille de calcul, lorsque l'on clique sur la colonne, on à en commentaire avec indication
: largeur: 6,43(50pixels)
y a t'il un moyen de récupérer cette information ?

merci pour une éventuelle solution.

Jean-Paul

 

[Staple1600]

Re : Pixels

Bonjour

En pixel

Function CellWidth(TheCell As Range) As Long 
    CellWidth = TheCell.Width * 1.33333333 
End Function

En points

Public Sub get_size_info()
'Procedure to return activecell width and height in points'
'D Kelly O'Day  ProcessTrends.Com
Set rng = ActiveCell
Add = ActiveCell.Address
Message = "Cell: " & Add & vbCrLf
         Message = Message & "Width = " & rng.Width & " Points" & vbCrLf
        Message = Message & "Height = " & rng.Height & " Points" & vbCrLf
out = MsgBox(Message, , "Cell Information")
End Sub

 

[VIARD]

Re : Pixels

Bonjour Staple1600

merci, je vais essayer de ce pas ta recette

a bientôt, amicalement

Jean-Paul