stroomlijnen code exporteren grafiek naar jpg

[ML71]

Ik heb code geschreven voor het exporteren van een excel grafiek naar een jpg bestand. Ik wil echter graag alle variabelen bij elkaar definieren, zodat de code voor het exporteren variabel gebruikt kan worden, maar het lukt me maar niet om het voor elkaar te krijgen.

De code die ik nu heb:

ws.ChartObjects("gwis1n").Chart.Export Filename:=pad & file, FilterName:="jpg"

het stukje 'ChartObjects("gwis1n")' wil ik dus graag variabel maken. Wie kan me hierbij helpen? Het bestand met grafiek en code is bijgevoegd.

Bekijk bijlage gwis1n test met VBA.xls

 

[wampier]

je kunt "gWis1n" ook vervangen door een variabele?

 

[OctaFish]

Zoiets?

Sub Grafiek_wegschrijven_als_afbeelding()
Dim ws As Worksheet
Dim chrt As ChartObject
Dim sName As String, sPad As String
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        Set ws = Sheets("Grafiek")
        For Each chrt In ws.ChartObjects
            sName = InputBox("Check de naam van de grafiek", "Naam bepalen", chrt.Name)
            If chrt.Name <> sName Then chrt.Name = sName
            ws.ChartObjects(sName).Chart.Export _
                Filename:=ThisWorkbook.Path & "\" & sName & ".jpg", FilterName:="jpg"
        Next
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
        
End Sub

 

[ML71]

Thanks! Dat was inderdaad wat ik bedoelde.