VBA afbeelding invoegen dmv bladeren

Status
Niet open voor verdere reacties.
L

LauravT

Gebruiker
Lid geworden
14 jun 2012
Berichten
156
Hallo,

Ik ben bezig met een bestand. Hierin wil ik een afbeelding plaatsen in de plek van een andere door op die andere afbeelding te klikken.
Graag zou ik dan willen zien dat er een blader menu opent (zo'n menu als wanneer je via openen krijgt) en daar vervolgens dan een afbeelding kan selecteren.

Ik heb het eea al afgezocht maar kan het helaas niet vinden.

Weet iemand het hier misschien?

MVG
 
Je kunt misschien een macro koppelen aan een object, maar ik snap,je niet helemaal: wat wil je nu eigenlijk? Kun je er een voorbeeldje bij doen?
 
Bekijk bijlage 288759
Dat was idd al mijn idee om het aan een object te koppelen.
In Word krijg ik het dus niet voor elkaar,.. dus kan niet een voorbeeld geven van dat.
In Excel lukt het me wel dmv:

Code: 
openbestand = Application.GetOpenFilename(Title:="Kies een bestand om te openen.")

Vervolgens als ik daar een afbeelding kies zou ik graag zien dat deze in het object komt te staan waarop zojuist geklikt is.

Hopelijk maakt dit het een beetje duidelijker?
 
Laatst bewerkt:
Dat kan dus met een macro, die je bijvoorbeeld aan de MouseDown van het object hangt.
Code: 
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Image1.Picture = LoadPicture(BestandOpzoeken)
End Sub

Code: 
Function BestandOpzoeken(Optional Pad As String) As String
Dim dlgPicker As FileDialog
Dim sType() As String, sFile As String
Dim tmp As String, sPad As String
Dim bCheck As Boolean
Dim vrtSelectedItem As Variant

    On Error GoTo Hell
    If Pad = "" Then sPad = Application.Path Else: sPad = Pad
    If Right(sPad, 1) <> "\" Then sPad = sPad & "\"
    Set dlgPicker = Application.FileDialog(msoFileDialogFilePicker)
    With dlgPicker
        .Title = "Selecteer een bestand." 'De titel voor het venster
        .InitialFileName = sPad      'Waar moet het venster beginnen?
        With .Filters
            .Clear
            .Add "Afbeeldingen", "*.jpg; *.jpeg; *.png", 1          'Beperk de bestandstypes tot afbeeldingen
            .Add "Alles", "*.*", 2                                  'Geen Beperkingen op bestandstype"
        End With
        .FilterIndex = 1
        .AllowMultiSelect = False                   'Slechts één bestand kiezen toegestaan
        .InitialView = msoFileDialogViewList        'Bepaal weergave
        If .Show = -1 Then                          'Bepaal of gebruiker op OK-knop heeft geklikt.
            sFile = .SelectedItems(1)           'String wordt gevuld met geselecteerde bestand
        Else
            MsgBox "Er is op <Annuleren> gedrukt..."
            BestandOpzoeken = "Annuleren"
            GoTo Hell
        End If
    End With
    BestandOpzoeken = sFile
    
Hell:
    Set dlgPicker = Nothing
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan