Comment faire pour donner à une colonne la
largeur d'un objet. J'y arrive presque parfaitement
avec :
L = image.Width
ActiveCell.ColumnWidth = L / 5.286
Si je connaissais le lien entre ces deux unités de
mesure, ce serait la perfection !
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
michdenis
Bonjour Garnote,
La propriété Width de l'objet range est en lecture seulement. ( son unité de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal. Dans le cas des polices proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères choisie.
En conséquence, il est préférable de définir la largeur d'un objet à partir de la largeur d'une cellule que d'être obligé de faire l'inverse !!!
;-)
Salutations!
"garnote" a écrit dans le message de news:sVjIb.24383$ Bonchoir,
Comment faire pour donner à une colonne la largeur d'un objet. J'y arrive presque parfaitement avec : L = image.Width ActiveCell.ColumnWidth = L / 5.286 Si je connaissais le lien entre ces deux unités de mesure, ce serait la perfection !
Serge
Bonjour Garnote,
La propriété Width de l'objet range est en lecture seulement. ( son unité de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal. Dans le cas des polices
proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères choisie.
En conséquence, il est préférable de définir la largeur d'un objet à partir de la largeur d'une cellule que d'être obligé de
faire l'inverse !!!
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de news:sVjIb.24383$6N3.10821@charlie.risq.qc.ca...
Bonchoir,
Comment faire pour donner à une colonne la
largeur d'un objet. J'y arrive presque parfaitement
avec :
L = image.Width
ActiveCell.ColumnWidth = L / 5.286
Si je connaissais le lien entre ces deux unités de
mesure, ce serait la perfection !
La propriété Width de l'objet range est en lecture seulement. ( son unité de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal. Dans le cas des polices proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères choisie.
En conséquence, il est préférable de définir la largeur d'un objet à partir de la largeur d'une cellule que d'être obligé de faire l'inverse !!!
;-)
Salutations!
"garnote" a écrit dans le message de news:sVjIb.24383$ Bonchoir,
Comment faire pour donner à une colonne la largeur d'un objet. J'y arrive presque parfaitement avec : L = image.Width ActiveCell.ColumnWidth = L / 5.286 Si je connaissais le lien entre ces deux unités de mesure, ce serait la perfection !
Serge
garnote
Salut Denis,
Merci pour les renseignements. Voici mon bricolage :
Sub Insère_Image_Dans_Cellule1() Application.ScreenUpdating = False Set image = ActiveSheet.Pictures.Insert _ ("D:Mes documentsMes imagesalien4.gif") With image L = .Width H = .Height .Left = .Left + 2 .TopLeftCell.Select End With Selection.ColumnWidth = L / 5.286 Selection.RowHeight = H End Sub
Sub Insère_Image_Dans_Cellule2() Application.ScreenUpdating = False Set image = ActiveSheet.Pictures.Insert _ ("D:Mes documentsMes imagesalien4.gif") image.TopLeftCell.Select With Selection L = .ColumnWidth H = .RowHeight End With With image .Width = L * 5.286 .Height = H .Left = .Left + 2 End With End Sub
Serge
"michdenis" a écrit dans le message de news:
Bonjour Garnote,
La propriété Width de l'objet range est en lecture seulement. ( son unité de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal. Dans le cas des polices
proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères choisie.
En conséquence, il est préférable de définir la largeur d'un objet à partir de la largeur d'une cellule que d'être obligé de
faire l'inverse !!!
;-)
Salutations!
"garnote" a écrit dans le message de news:sVjIb.24383$
Bonchoir,
Comment faire pour donner à une colonne la largeur d'un objet. J'y arrive presque parfaitement avec : L = image.Width ActiveCell.ColumnWidth = L / 5.286 Si je connaissais le lien entre ces deux unités de mesure, ce serait la perfection !
Serge
Salut Denis,
Merci pour les renseignements.
Voici mon bricolage :
Sub Insère_Image_Dans_Cellule1()
Application.ScreenUpdating = False
Set image = ActiveSheet.Pictures.Insert _
("D:Mes documentsMes imagesalien4.gif")
With image
L = .Width
H = .Height
.Left = .Left + 2
.TopLeftCell.Select
End With
Selection.ColumnWidth = L / 5.286
Selection.RowHeight = H
End Sub
Sub Insère_Image_Dans_Cellule2()
Application.ScreenUpdating = False
Set image = ActiveSheet.Pictures.Insert _
("D:Mes documentsMes imagesalien4.gif")
image.TopLeftCell.Select
With Selection
L = .ColumnWidth
H = .RowHeight
End With
With image
.Width = L * 5.286
.Height = H
.Left = .Left + 2
End With
End Sub
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eHV4pmwzDHA.716@TK2MSFTNGP12.phx.gbl...
Bonjour Garnote,
La propriété Width de l'objet range est en lecture seulement. ( son unité
de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du
style Normal. Dans le cas des polices
proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères
choisie.
En conséquence, il est préférable de définir la largeur d'un objet à
partir de la largeur d'une cellule que d'être obligé de
faire l'inverse !!!
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:sVjIb.24383$6N3.10821@charlie.risq.qc.ca...
Bonchoir,
Comment faire pour donner à une colonne la
largeur d'un objet. J'y arrive presque parfaitement
avec :
L = image.Width
ActiveCell.ColumnWidth = L / 5.286
Si je connaissais le lien entre ces deux unités de
mesure, ce serait la perfection !
Merci pour les renseignements. Voici mon bricolage :
Sub Insère_Image_Dans_Cellule1() Application.ScreenUpdating = False Set image = ActiveSheet.Pictures.Insert _ ("D:Mes documentsMes imagesalien4.gif") With image L = .Width H = .Height .Left = .Left + 2 .TopLeftCell.Select End With Selection.ColumnWidth = L / 5.286 Selection.RowHeight = H End Sub
Sub Insère_Image_Dans_Cellule2() Application.ScreenUpdating = False Set image = ActiveSheet.Pictures.Insert _ ("D:Mes documentsMes imagesalien4.gif") image.TopLeftCell.Select With Selection L = .ColumnWidth H = .RowHeight End With With image .Width = L * 5.286 .Height = H .Left = .Left + 2 End With End Sub
Serge
"michdenis" a écrit dans le message de news:
Bonjour Garnote,
La propriété Width de l'objet range est en lecture seulement. ( son unité de mesure est le point)
La propriété ColumWidth d'un objet est défini comme suit :
"Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal. Dans le cas des polices
proportionnelles, la largeur du caractère 0 (zéro) est utilisée."
Donc c'est très variable et cela varie selon la police de caractères choisie.
En conséquence, il est préférable de définir la largeur d'un objet à partir de la largeur d'une cellule que d'être obligé de
faire l'inverse !!!
;-)
Salutations!
"garnote" a écrit dans le message de news:sVjIb.24383$
Bonchoir,
Comment faire pour donner à une colonne la largeur d'un objet. J'y arrive presque parfaitement avec : L = image.Width ActiveCell.ColumnWidth = L / 5.286 Si je connaissais le lien entre ces deux unités de mesure, ce serait la perfection !
