OVH Cloud OVH Cloud

motif cellule

2 réponses
Avatar
Christian M
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
-------------------------------

2 réponses

Avatar
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
-------------------------------





Avatar
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

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
-------------------------------