Open document

[zotte jan]

Hallo iedereen,

Ik zou een afbeelding willen laden in een imagebox. Dit doe ik nu met een textbox waar je de volledige link moet in typen. Maar kun je dit ook door op een knop te drukken zodat je kunt bladeren (zoals openen bij bestand) Indien ja, hoe is dat dan mogelijk.

Hoppelijk kunnen jullie mij nog maar eens verder helpen

Zotte Jan

 

[Roncancio]

Hallo,

Jazeker. Met behulp van GetOpenFilename.

Sub Invoegen()

FileToOpen = Application.GetOpenFilename _
(Title:="Kies een afbeelding om in het bestand te zetten.", FileFilter:="*.jpg (*.jpg),")
If FileToOpen = False Then
    MsgBox "Geen afbeelding geselecteerd.", vbExclamation, "Geen afbeelding geselecteerd.!"
    Exit Sub
Else
    ActiveSheet.Pictures.Insert(FileToOpen).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 188.25
    Selection.ShapeRange.Width = 262.5
    Selection.ShapeRange.Rotation = 0#
    
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[zotte jan]

Hartelijk bedankt, die was wat ik nodig had.
Dank u voor de reactie
:thumb:

Alles werkt perfect

Zotte Jan

 

[zotte jan]

1 probleem als ik test zegt hij bij FileToOpen: Kan het Projext of Bilblioteek niet vinden.

Wat doe ik fout want ik gebruik de code:

Private Sub CommandButton1_Click()
FileToOpen = Application.GetOpenFilename _
(Title:="Kies een afbeelding om in het bestand te zetten.", FileFilter:="*.jpg (*.jpg),")
If FileToOpen = False Then
    MsgBox "Geen afbeelding geselecteerd.", vbExclamation, "Geen afbeelding geselecteerd.!"
    Exit Sub
Else
    ActiveSheet.Pictures.Insert(FileToOpen).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 188.25
    Selection.ShapeRange.Width = 262.5
    Selection.ShapeRange.Rotation = 0#
    
End If
End Sub

Dus wat moet ik veranderen?

Zotte Jan

 

[Roncancio]

1 probleem als ik test zegt hij bij FileToOpen: Kan het Projext of Bilblioteek niet vinden.

De code heb ik even tussendoor gemaakt maar het houdt wel rekening met het feit of het bestand aanwezig is of niet en ook of er een bestand gekozen wordt.

Het lijkt erop dat de Analysis Toolpak niet geinstalleerd zijn en dat is raar omdat je eerder aangaf dat het werkte. De Analysis Toolpak is een invoegtoepassing die je kan vinden onder Extra - invoegtoepassingen.

Met vriendelijke groet,


Roncancio

 

[zotte jan]

Dank u
Op mijn vaste pc werkte het zonder problemen maar op mijn laptop gaf hij die fout melding

 

[zotte jan]

Op mijn laptop heb ik Analysis Toolpak geïnstaleerd maar hier werkt het nog steeds niet
FileToOpen kan hij niet vinden

Vrindelijke groeten,

Zotte Jan

 

[zotte jan]

Ik heb het dan toch uiteindelijk gevonden.
Toch bedankt voor de hulp en voor het stukje code.

Bedankt

Vriendelijke groeten,

Zotte Jan