Image in Userform door gebruiker te wijzigen.

[Andre175]

ik wil graag dat de gebruiker zelf een Afbeelding kan kiezen in een Form.
nu heb ik daar het volgende voor gevonden.

Private Sub CmdbChangePic_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Kies"
        .Title = "Selecteer een afbeelding 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
            [COLOR="#FF0000"]Set img = Image3.......??????[/COLOR]
            

            'Scale image size
            'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
            'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

            'Position Image
            'img.Left = 50
            'img.Top = 150

            'Set image sizes in points (72 point per inch)
            'img.Width = 150
            'img.Height = 150
        Else
            MsgBox ("Cancelled.")
        End If
    End With

End Sub

Het lukt me echter niet om de gekozen afbeelding in "Image3" te krijgen.

welke code moet er gebruikt worden? Als het überhaupt mogelijk is.....



bvd...André

 

[gast0660]

En in welk voorbeeld bestandje kunnen we dat vinden?

ik wil graag dat de gebruiker zelf een Afbeelding kan kiezen in een Form.

 

[Andre175]

Bij deze Philiep.....

btw....nog gefeliciteerd...(als ik het goed heb)

Bekijk bijlage Change_Image.xlsb

 

[OctaFish]

Dat laden van een foto kan je zo doen:

        If .Show = -1 Then
            Set img = Me.Image3
            img.Picture = LoadPicture(.SelectedItems(1))
            img.PictureSizeMode = fmPictureSizeModeZoom
            img.PictureTiling = False

 

[Andre175]

Thanks OctaFish....

Image wordt geladen....dat is opgelost.


Hoe kan ik de maximale maten aangeven.
zodat zeg maar landscape en portret foto's altijd binnen een zelfde vierkantje blijven.


André