afficher une image dans une cellule et imgboxRésolu

Question

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

Edit : Ajout des balises de code...

jordane45 · Answer

Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

jordane45 · Answer

Bonjour,

Dim pathImg As String
    pathImg = "c:	mp\faq-logo.jpg"
     If Dir(pathImg) <> "" Then
      UserForm1.Image1.Picture = LoadPicture(pathImg)
     End If
 





N'hésites pas à consulter ce site :
http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-K

.

cs_Le Pivert · Answer

Bonjour,

  Dim fDialog As Office.FileDialog
   Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
 With fDialog
        .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 = True Then
    varFile = .SelectedItems(1)
 UserForm1.Image1.Picture = LoadPicture(varFile)
 UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
  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 "You clicked Cancel in the file dialog box."
      End If
   End With

Afficher une image dans une cellule et imgbox

3 réponses

Votre réponse

Discussions similaires