• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Grafiek verwijderen afhankelijk van waarde in cel

Status
Niet open voor verdere reacties.

ouweham

Gebruiker
Lid geworden
17 sep 2007
Berichten
5
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.
 
Code:
Sub verwijderen_grafiek()

    Dim antwoord As String

    antwoord = Range("N7")
    
    If antwoord = "Ja" Then ActiveSheet.ChartObjects("Chart 1").Delete
    
End Sub

Wigi

PS: graag code tags gebruiken als je hier code neerzet. Dat is het # icoontje.
 
Dank

Code:
Sub verwijderen_grafiek()

    Dim antwoord As String

    antwoord = Range("N7")
    
    If antwoord = "Ja" Then ActiveSheet.ChartObjects("Chart 1").Delete
    
End Sub

Wigi

PS: graag code tags gebruiken als je hier code neerzet. Dat is het # icoontje.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan