Insérer image, VBA
Résolu/Fermé
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
3 nov. 2009 à 13:44
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 nov. 2009 à 14:57
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 nov. 2009 à 14:57
A voir également:
- Insérer image, VBA
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Image iso - Guide
- Insérer une vidéo dans powerpoint - Guide
- Acronis true image - Télécharger - Sauvegarde
6 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
3 nov. 2009 à 14:16
3 nov. 2009 à 14:16
Salut Farfadet,
Dans ton UserForm, créé un bouton de commande que tu nommeras insérer image ou ce que tu veux... double clic dessus et insère ce code :
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = CurDir
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
Range("A1").AddComment
Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
Sources et plus d'infos ici
Dans ton UserForm, créé un bouton de commande que tu nommeras insérer image ou ce que tu veux... double clic dessus et insère ce code :
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = CurDir
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
Range("A1").AddComment
Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
Sources et plus d'infos ici
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
3 nov. 2009 à 14:25
3 nov. 2009 à 14:25
Ok ca marche!
Merci!
Merci!
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
3 nov. 2009 à 14:39
3 nov. 2009 à 14:39
Petit souci, si finalement n annule et on ne veut pas d'image ben ça bug. comment faire?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
3 nov. 2009 à 14:42
3 nov. 2009 à 14:42
A la place de :
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
mettre :
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
Bonne question, je n'ai pas pensé à cela...
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
mettre :
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
Bonne question, je n'ai pas pensé à cela...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 365
3 nov. 2009 à 14:50
3 nov. 2009 à 14:50
Ca marche!
Merci!
Merci!
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
3 nov. 2009 à 14:57
3 nov. 2009 à 14:57
Il n'y a pas de quoi.
@+
@+
