Goedemorgen,
ik heb een vraag over het maken van een macro binnen VB Excel voor het verwijderen van een grafiek afhankelijk van een bepaalde waarde in een cel.
Situatie: ik heb op een werkblad 3 grafieken. Afhankelijk van een waarde in een cel, wil ik 1 van de grafieken verwijderen. De andere twee moeten blijven staan.
De code die ik tot nu toe heb is:
Sub verwijderen_grafiek()
Dim werkblad_item As Worksheet
Dim grafiek As ChartObject
Dim antwoord As String
antwoord = Range("N7")
If antwoord = "Ja" Then
For Each werkblad_item In ThisWorkbook.Worksheets
For Each grafiek In werkblad_item.ChartObjects
grafiek.Delete
Next
Next
End If
End Sub
Als in N7 inderdaad "Ja" staat, dan worden alle grafieken op dat werkblad verwijdert. Het moet nu zo zijn dat hij maar 1 van de drie verwijdert.
WIE kan mij helpen? Redelijk spoed zit erachter. Alvast bedankt.
ik heb een vraag over het maken van een macro binnen VB Excel voor het verwijderen van een grafiek afhankelijk van een bepaalde waarde in een cel.
Situatie: ik heb op een werkblad 3 grafieken. Afhankelijk van een waarde in een cel, wil ik 1 van de grafieken verwijderen. De andere twee moeten blijven staan.
De code die ik tot nu toe heb is:
Sub verwijderen_grafiek()
Dim werkblad_item As Worksheet
Dim grafiek As ChartObject
Dim antwoord As String
antwoord = Range("N7")
If antwoord = "Ja" Then
For Each werkblad_item In ThisWorkbook.Worksheets
For Each grafiek In werkblad_item.ChartObjects
grafiek.Delete
Next
Next
End If
End Sub
Als in N7 inderdaad "Ja" staat, dan worden alle grafieken op dat werkblad verwijdert. Het moet nu zo zijn dat hij maar 1 van de drie verwijdert.
WIE kan mij helpen? Redelijk spoed zit erachter. Alvast bedankt.