Foto laden aan de hand van gegevens

[Neuz]

Hey allemaal,

Ik ben bezig met een met een document waarin een afbeelding geladen
moet worden aan de hand van 2 gegevens.

Voorbeeld 1:
Waarde 1 = 100
Waarde 2 = 200
Afbeelding = Duim omhoog

Voorbeeld 2:
Waarde 1 = 500
Waarde 2 = 200
Afbeedling = Duim omlaag

Kortom als de waarde 2 groter of gelijk is aan waarde 1 dan afbeelding Duim omhoog
en anders Duim omlaag.

Ik ben al bezig geweest met het schrijven van een script alleen zonder resultaat.
Bekijk bijlage Afbeelding laden.xlsm

Zouden jullie me met dit probleem kunnen helpen.

Alvast bedankt voor de moeite.

Groet Neuz

 

[HSV]

Dit moet genoeg zijn.

Sub afbeelding()
With Worksheets("Blad1")
    .Shapes.Range(Array("Afbeelding 3", "Afbeelding 4")).Visible = msoFalse
        If .Range("E4") > .Range("C4") Then
     With .Shapes("Afbeelding 4")   'afbeelding4 invoegen
          .Visible = msoTrue
          .Top = Range("G4").Top '
          .Left = Range("G4").Left
          .Width = (.Width / .Height)
          .Height = Range("G4").Height
    End With
    ElseIf .Range("E4") < .Range("C4") Then
      With .Shapes("Afbeelding 3")   'afbeelding3 invoegen
          .Visible = msoTrue
          .Top = Range("G4").Top '
          .Left = Range("G4").Left
          .Width = (.Width / .Height)
          .Height = Range("G4").Height
    End With
        End If
    End With
End Sub

 

[Neuz]

Beste HSV,

Ik heb je script verwerkt in het document. Het werkt perfect.
Nu is er alleen nog 1 vraagje is er een mogelijkheid dat ik de
grote van de afbeelding kan bepalen?

De afbeelding past zich nu namelijk aan aan de ruimte in de
rij. In het officiële bestand heb ik 3 rijen samengevoegd en
daarin wil ik de afbeelding laden. Dit lukt maar de afbeelding
blijft de hoogte houden van 1 rij.

Alvast bedankt voor de hulp.

Groet Neuz

 

[HSV]

Staat twee keer in de code.

 .Height = Range("G4").Resize(3).Height

 

[Neuz]

Hey HSV,

Je bent geweldig.
Alles werkt nu naar behoren.

Bedankt voor de snelle reactie.

Groet Neuz