Bonjour,
Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire
(dégradé, image, etc...).
Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même
avec une requête sur Google.
Merci
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
Philippe.R
Bonsoir Christian, Trouvé sur Disciplus / Excelabo :
"=======================================================================" Adapter la taille d'une image à une cellule Comment adapter une image à la dimension d'une cellule donnée ?Sub insert_image() On Error GoTo bed nom_de_limage = ActiveSheet.Name repertoire = "C:Documents and SettingsAdministrateurMes documentsMes images" ActiveSheet.Pictures.Insert(repertoire & nom_de_limage & ".jpg").Select Selection.Name = "monimage" Selection.ShapeRange.LockAspectRatio = msoFalse With ActiveSheet.Shapes("monimage") .Top = Range("c3").Top .Left = Range("c3").Left .Height = Range("c3:c8").Height .Width = Range("c3:e3").Width End With Exit Sub bed: MsgBox "Pas d'image nommée " & nom_de_limage & " dans ce répertoire", vbExclamation, repertoire End Sub Popi"=========================================================================" Pourrait peut être convenir ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Christian M" a écrit dans le message de news:
Bonjour, Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire (dégradé, image, etc...). Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même avec une requête sur Google. Merci
-- Christian M -------------------------------
Bonsoir Christian,
Trouvé sur Disciplus / Excelabo :
"======================================================================="
Adapter la taille d'une image à une cellule
Comment adapter une image à la dimension d'une cellule donnée ?Sub insert_image()
On Error GoTo bed
nom_de_limage = ActiveSheet.Name
repertoire = "C:Documents and SettingsAdministrateurMes documentsMes
images"
ActiveSheet.Pictures.Insert(repertoire & nom_de_limage & ".jpg").Select
Selection.Name = "monimage"
Selection.ShapeRange.LockAspectRatio = msoFalse
With ActiveSheet.Shapes("monimage")
.Top = Range("c3").Top
.Left = Range("c3").Left
.Height = Range("c3:c8").Height
.Width = Range("c3:e3").Width
End With
Exit Sub
bed:
MsgBox "Pas d'image nommée " & nom_de_limage & " dans ce répertoire",
vbExclamation, repertoire
End Sub
Popi"========================================================================="
Pourrait peut être convenir ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christian M" <ZZZ@ZZZ.fr> a écrit dans le message de news:OKUiv3BtDHA.2392@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire
(dégradé, image, etc...).
Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même
avec une requête sur Google.
Merci
Bonsoir Christian, Trouvé sur Disciplus / Excelabo :
"=======================================================================" Adapter la taille d'une image à une cellule Comment adapter une image à la dimension d'une cellule donnée ?Sub insert_image() On Error GoTo bed nom_de_limage = ActiveSheet.Name repertoire = "C:Documents and SettingsAdministrateurMes documentsMes images" ActiveSheet.Pictures.Insert(repertoire & nom_de_limage & ".jpg").Select Selection.Name = "monimage" Selection.ShapeRange.LockAspectRatio = msoFalse With ActiveSheet.Shapes("monimage") .Top = Range("c3").Top .Left = Range("c3").Left .Height = Range("c3:c8").Height .Width = Range("c3:e3").Width End With Exit Sub bed: MsgBox "Pas d'image nommée " & nom_de_limage & " dans ce répertoire", vbExclamation, repertoire End Sub Popi"=========================================================================" Pourrait peut être convenir ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Christian M" a écrit dans le message de news:
Bonjour, Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire (dégradé, image, etc...). Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même avec une requête sur Google. Merci
-- Christian M -------------------------------
Christian M
Merci
-- Christian M ------------------------------- "Philippe.R" a écrit dans le message de news:
Bonsoir Christian, Trouvé sur Disciplus / Excelabo :
"=======================================================================" Adapter la taille d'une image à une cellule Comment adapter une image à la dimension d'une cellule donnée ?Sub insert_image()
On Error GoTo bed nom_de_limage = ActiveSheet.Name repertoire = "C:Documents and SettingsAdministrateurMes documentsMes
Pourrait peut être convenir ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Christian M" a écrit dans le message de news:
Bonjour, Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire (dégradé, image, etc...). Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même
avec une requête sur Google. Merci
-- Christian M -------------------------------
Merci
--
Christian M
-------------------------------
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
O0ZxdyGtDHA.2400@tk2msftngp13.phx.gbl...
Bonsoir Christian,
Trouvé sur Disciplus / Excelabo :
"======================================================================="
Adapter la taille d'une image à une cellule
Comment adapter une image à la dimension d'une cellule donnée ?Sub
insert_image()
On Error GoTo bed
nom_de_limage = ActiveSheet.Name
repertoire = "C:Documents and SettingsAdministrateurMes
documentsMes
Pourrait peut être convenir ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christian M" <ZZZ@ZZZ.fr> a écrit dans le message de
news:OKUiv3BtDHA.2392@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire
(dégradé, image, etc...).
Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet,
même
-- Christian M ------------------------------- "Philippe.R" a écrit dans le message de news:
Bonsoir Christian, Trouvé sur Disciplus / Excelabo :
"=======================================================================" Adapter la taille d'une image à une cellule Comment adapter une image à la dimension d'une cellule donnée ?Sub insert_image()
On Error GoTo bed nom_de_limage = ActiveSheet.Name repertoire = "C:Documents and SettingsAdministrateurMes documentsMes
Pourrait peut être convenir ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Christian M" a écrit dans le message de news:
Bonjour, Dans ce NG j'ai lu que l'on pouvait modifier le fond d'un commentaire (dégradé, image, etc...). Cela est-il possible dans une cellule ? Je n'ai rien trouvé à ce sujet, même