Afbeelding verdwijnt na macro

[Sjaco90]

Goedemiddag,

Voor mijn werk heb ik een Excel-sheet ontwikkeld, om terugverdientijden te berekenen.
Dit blad bestaat uit 8 bladen, met de volgende inhoud:

Blad 1
Gegevens waar formulematig info uit gehaald wordt

Blad 2
Logo's van partners

Blad 3
Invullen bestaande situatie

Blad 4
Invullen nieuwe situatie

Blad 5-8
Uitwerking, uiteindelijke PDF

Op pagina 5 staat een afbeelding, welke altijd bleef staan. Tegenwoordig maken we gebruik van Excel 2010 (ipv 2007), in 2007 blijf de afbeelding staan maar in 2010 niet. Ik denk dat dit heeft te maken met een macro, iets waar ik geen kaas van heb gegeten. De macro ziet er als volgt uit:
-------------


Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("A7")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
'Exit For
End If
If oPic.Name <> .Text Then
oPic.Visible = False
End If
Next oPic
End With
For Each oPic In Me.Pictures
If oPic.Name = "Afbeelding 100" Then
With Range("A54")
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
End With
'Exit For
End If
Next
For Each oPic In Me.Pictures
If oPic.Name = "Afbeelding 69" Then
With Range("A2")
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
End With
'Exit For
End If
Next
End Sub


------

Kan iemand me hier mee helpen? Ik hoor het graag!

 

[edmoor]

Als je doe code nou even in een codetag zet is het ook leesbaar.

 

[Elsendoorn2134]

SjaCo90

Op de eerste regel van de macro worden alle afbeeldingen onzichtbaar gemaakt.

Me.Pictures.Visible = False

Daarna wordt in cel A7 gekeken of er een naam staat van een afbeelding zo ja dan wordt deze zichtbaar gemaakt.
Daarna worden nog afbeelding "Afbeelding 100" en "Afbeelding 69" zichtbaar gemaakt.
Ik heb geen bestandje van je gehad dus ik kan ook niet zien welke afbeeldingen er aanwezig zijn en hoe ze heten.
Ik stel voor dat je in een macro alle afbeeldingen zichtbaar maakt.

Me.Pictures.Visible = True

Waarna je de afbeeldingen verwijdert die je niet meer nodig hebt. Daarna kun je alle macro's verwijderen.

Ik vermoed dat de reden waarom de afbeelding in de nieuwe versie niet zichtbaar wordt komt omdat de afbeelding een andere
naam heeft gekregen.

Veel Succes.