hartarus
-
Modifié par jordane45 le 4/07/2014 à 11:46
hartarus -
4 juil. 2014 à 15:32
Bonjour,
Je souhaiterai à l'aide d'une dialogbox afficher une image en meme temps dans une imagebox(picturebox) d'un userform et en meme temps dans une cellule d'une feuille excel.
j'arrive à l'afficher dans la feuille excel mais pas dans la picturebox, il me manque donc la procédure pour l'afficher dans la picturebox pouvez vous m'aider ?
voici mon code:
Sub BoutPath_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Submit"
.Title = "Select an image file"
.Filters.Clear
.Filters.Add "JPG", "*.JPG"
.Filters.Add "JPEG File Interchange Format", "*.JPEG"
.Filters.Add "Graphics Interchange Format", "*.GIF"
.Filters.Add "Portable Network Graphics", "*.PNG"
.Filters.Add "Tag Image File Format", "*.TIFF"
.Filters.Add "All Pictures", "*.*"
If .Show = -1 Then
Dim img As Object
Dim img2 As Picture
Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
'Scale image size
'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
'Position Image
img.Left = 40
img.Top = 65
'Set image sizes in points (72 point per inch)
img.Width = 180
img.Height = 220
Else
MsgBox ("Cancelled.")
End If
Merci beaucoup pour la réponse super-rapide, seulement je prends l'image à partir d'une diagbox donc je n'ai pas de chemin de fichier specifique, existe t'il un moyen de placer une image depuis une diagbox dans une cellule d'un classeur et de l'afficher dans la picturebox ?
exemple :
je cherche une image sur mon disque local, je désire qu'elle vienne s'afficher en même temps sur une cellule de mon classeur marqué "carte" dans la cellule b5 afin de la sauvegarder et dans "image1" de mon userform1 pour l'affichage
a savoir que l'opération peut se renouveler avec une autre image et remplacer la précédente.
merci encore pour les réponses
x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x