Sub TestShapes2()
Dim oShape As Shape, img1 As String, img2 As String
With ActiveSheet
For Each oShape In .Shapes
If oShape.TopLeftCell.Address = "$A$1" Then
img1 = oShape.AlternativeText
ElseIf oShape.TopLeftCell.Address = "$C$1" Then
img2 = oShape.AlternativeText
End If
Next oShape
End With
If (img1 <> vbNullString) * (img2 <> vbNullString) Then
MsgBox IIf(img1 = img2, "Gelijke", "Ongelijke") & " afbeeldingen"
End If
End Sub
Speel hier maar eens mee.
Test de code in het voorbeeldbestand, sleep daarna de afbeeldingen naar andere posities, wijzig de adressen in de code en draai de code opnieuw.
We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.