Ajout image cellule excel

David -
David - 27 févr. 2012 à 20:30

Bonjour,

Dans mon projet vba j'ai 4 radios boutons. Chacun de ces radios boutons à une image et j'aimerai mettre cette image dans une de mes cellules. Comment faire ? Sans utiliser le chemin de l'image !!!

Merci d'avance

Afficher la suite

2 réponses

Réponse 1 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 199
Bonjour,
Comme ça.. ?
```
Dim Img1

Private Sub ToggleButton1_Click()
Dim Cel As Range
    Set Cel = ActiveCell
    Set Img1 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
        DisplayAsIcon:=False)
    With Img1
        .Name = "TBimg1"
        .Width = Cel.Width
        .Height = Cel.Height
        .Object.Picture = ToggleButton1.Picture
        .Object.PictureSizeMode = 1
    End With
End Sub
```
A+
0
1. David
  
  Ton Img1 il fait quoi ?
  
  0
2. lermite222 Messages postés 9042 Statut Contributeur 1 199
  
  Ton Img1 il fait quoi ?
  Mon Img1 y dit... Merci de ta réponse mais je ne comprend pas bien à quoi sert Img1 ?
  Y dis aussi... Ça aurait été plus agréable à lire et inciterait à répondre
  
  0
3. David
  
  Oui tu fais cece :
  
  Set Img1 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
  DisplayAsIcon:=False)
  
  mais cela crée un bouton après sur ma feuille alors que je souhaite une image. Y a t il un autre moyen ?
  
  0
Réponse 2 / 2
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 147

Salut,

excusez mon intrusion, pour ne pas à avoir à afficher le chemin des images, il faut que ces dernières soit dans le même répertoire
dans ce cas la syntaxe est
ActiveWorkbook.Path & "\" & nom du fichier.xls
0
1. David
  
  Enfaite mon problème c est que mon fichier xls va être sur un serveur web, les gens vont pouvoir récupérer le fichier en tant que modèle (saisie des données uniquement) et donc je n'aurai pas de lien avec de dossier de mon fichier.
  
  Par contre, quand j'ai un bouton radio avec une picture je ne peux pas la récupérer et la mettre dans une cellule ?
  
  Merci pour ton aide Mike-31
  
  0

Ajout image cellule excel

2 réponses

Discussions similaires

Newsletters