Afbeelding vergroot laten zien

Status
Niet open voor verdere reacties.
E

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
300
Heb een progje geheel aangepast aan mijn toepassing echter wil ik nog graag een optie toevoegen.

Via een pulldown kan ik iets kiezen en krijg hier een userform1 popup terug met omschrijvingen en 3 afbeeldingen waarvan het formaat automatisch passend wordt gemaakt a.d.v.h. kader.
Nu wil ik graag als ik op 1 van de 3 afbeeldingen klik daar een andere userform2 terug komt met een grote afbeelding hiervan.
Bijgevoegd code + 3 afbeeldingen van AST + AST 1 + AST 2.
Om te testen kies dan uit het Pulldown optie 6 AST binnenseal........

Mooi zou zijn als je op de vergrote afbeelding klikt je weer in de vorige userform1 terug komt.

Dank alvast
Gr.Tonnie
 

Bijlagen

  • CupFaults 2019.xlsm
    57,3 KB · Weergaven: 19
  • AST 1.jpg
    AST 1.jpg
    52,5 KB · Weergaven: 39
  • AST 2.jpg
    AST 2.jpg
    47,4 KB · Weergaven: 42
  • AST.jpg
    AST.jpg
    41,6 KB · Weergaven: 40
Nu nog een voorbeeld zonder wachtwoord op het VBA project.
 
Progje nu zonder WW

Mijn excuses voor het ww, nu zonder
 

Bijlagen

  • CupFaults 2019.xlsm
    57,7 KB · Weergaven: 30
Hoi Tonnie,
Zie bijlage.
Het is een zipje, eerst uitpakken.
De foto met de naam in B6 wordt geladen in de userform.
Het zipje bestaat uit een excel vb en een mapje met twee foto's.
Tip:bekijk de namen van de foto's.
 

Bijlagen

  • Userform + foto.zip
    54,8 KB · Weergaven: 21
Of in je eigen document. Zorg ervoor dat je plaatjes in dezelfde map staan als je document.
Bekijk bijlage CupFaults 2019.xlsm

Klik op de afbeelding in het userform om er een vergrote weergave van te zien.
 
Laatst bewerkt:
gast0660 zei:
Hoi Tonnie,
Zie bijlage.
Het is een zipje, eerst uitpakken.
De foto met de naam in B6 wordt geladen in de userform.
Het zipje bestaat uit een excel vb en een mapje met twee foto's.
Tip:bekijk de namen van de foto's.
Klik om te vergroten...

THX voor je inbreng, het is opgelost
Ben voor de oplossing van Edmoor gegaan
 
Graag gedaan.
Je prima voorbeeld hielp daarbij aanzienlijk :D
 
Het change event mag je ook wel even onder de loep nemen. For Each cell In Target waarbij target B6 is lijkt mij vrij onzinnig.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ar
  If Target.Address = "$B$6" Then
    With Application
      .EnableEvents = False
      ar = Sheets("Validatie").Cells(.Match(Target.Value, Sheets("Validatie").Columns(1), 0), 1).Resize(, 4)
      Target = ar(1, 2)
      Target.Offset(-1) = ar(1, 3) & .Rept(" ", 23) & "KEUZE PIJLTJE"
      .EnableEvents = True
    End With
    UserForm1.Show
  End If
End Sub
 
edmoor zei:
Graag gedaan.
Je prima voorbeeld hielp daarbij aanzienlijk :D
Klik om te vergroten...

Wanneer een afbeelding niet bestaat en je klikt op wel op die positie van een vergroting dan komt die retour met foutmelding.
IS dit op te vangen met een retour van een messagebox.

Tevens bij de vergroting box wordt de locatie volledig weergegeven als een soort titelbalk, dit zou ik graag niet willen vertonen.
 
Laatst bewerkt:
Ik zou het dan zo doen:
Code: 
Private Sub Image1_Click()
    [COLOR="#FF0000"]If Dir(Image1.Tag) = "" Then Exit Sub[/COLOR]
    UserForm2.Caption = Image1.Tag
    UserForm2.Image1.Picture = LoadPicture(Image1.Tag)
    UserForm2.Show
End Sub

Dan gebeurt er gewoon niets als je op de afbeelding klikt.
 
edmoor zei:
Ik zou het dan zo doen:
Code: 
Private Sub Image1_Click()
    [COLOR="#FF0000"]If Dir(Image1.Tag) = "" Then Exit Sub[/COLOR]
    UserForm2.Caption = Image1.Tag
    UserForm2.Image1.Picture = LoadPicture(Image1.Tag)
    UserForm2.Show
End Sub

Dan gebeurt er gewoon niets als je op de afbeelding klikt.
Klik om te vergroten...

Super dat is wat ik zocht.


Misschien heb je ook wel hier een oplossing voor.
Bij de vergrotings box wordt de locatie volledig weergegeven als een soort titelbalk, dit zou ik graag niet willen vertonen.
 
Dan laat je gewoon deze regel achterwege:
UserForm2.Caption = Image1.Tag
 
Graag gedaan en nog een verzoek.
Klik niet op de "Quote" knop om direct op een vorig bericht te reageren maar op de "+ Reageer op bericht" knop.
Ook een fijne dag verder gewenst :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan