Kopieren grafieken zonder externe link naar de data

[AABE]

Geacht Forum,

In een worksheet heb ik een aantal grafieken staan.
De data staat op een apart blad.

Alleen het blad met de grafieken wil ik mailen naar diverse mensen.
Dat lukt, echter als men deze opent, wordt er gevraagd naar de exteren link.
Kan dit op een af andere manier de link verwijderd worden voor het versturen?
Uiteraard moeten de grafieken wel blijven bestaan.

Ik hoor het graag....

mvg,

Aat

 

[Wigi]

Dat is geen simpel probleem, misschien kan je het blad omzetten naar PDF?

 

[Warme bakkertje]

Aat, hier ligt de oplossing voor jou, veronderstel ik

http://peltiertech.com/Excel/ChartsHowTo/DelinkChartData.html

Mvg

Rudi

 

[AABE]

Dat is geen simpel probleem, misschien kan je het blad omzetten naar PDF?

Helaas omzetten naar PDF is geen optie.....hiervoor moet aparte software geinstalleerd worden en dat kan niet.....

 

[AABE]

Aat, hier ligt de oplossing voor jou, veronderstel ik

http://peltiertech.com/Excel/ChartsHowTo/DelinkChartData.html

Mvg

Rudi

Ziet er veelbelovend uit...we gaan het proberen. Bedankt....

Aat

 

[IkEcht]

Een andere optie als het echt alleen om de grafieken gaat is om ze in word te plakken als bitmap en vervolgens het worddocumentje rond te sturen.

 

[AABE]

Ziet er veelbelovend uit...we gaan het proberen. Bedankt....

Aat

De gevonden code werkt voor 1 geselecteerde grafiek.
Ik heb een stuk of acht grafieken op de sheet staan.

Is dit automatisch via een loop te maken.
Dus de code uitvoeren voor alle grafieken die op het werkblad staan....

mvg,

Aat

Sub DelinkChartFromData()
''' Thanks to Tushar Mehta
    Dim mySeries As Series
    Dim sChtName As String

    ''' Make sure a chart is selected
    On Error Resume Next
    sChtName = ActiveChart.Name
    If Err.Number <> 0 Then
        MsgBox "This functionality is available only for charts " _
            & "or chart objects"
    Exit Sub
    End If
    If TypeName(Selection) = "ChartObject" Then
        ActiveSheet.ChartObjects(Selection.Name).Activate
    End If
    On Error GoTo 0

    ''' Loop through all series in active chart
    For Each mySeries In ActiveChart.SeriesCollection
        '''' Convert X and Y Values to arrays of values
        mySeries.XValues = mySeries.XValues
        mySeries.Values = mySeries.Values
        mySeries.Name = mySeries.Name
    Next mySeries
End Sub

 

[Warme bakkertje]

Aat, deze zou het moeten doen

Sub DelinkChartFromData()
''' Thanks to Tushar Mehta
    Dim mySeries As Series
    Dim sChtName As String
    Dim x As Long
    ''' Make sure a chart is selected
    On Error Resume Next
    For x = 1 To 8
    ActiveSheet.ChartObjects("Grafiek " & x).Activate
    sChtName = ActiveChart.Name
    If Err.Number <> 0 Then
        MsgBox "This functionality is available only for charts " _
            & "or chart objects"
    Exit Sub
    End If
    If TypeName(Selection) = "ChartObject" Then
        ActiveSheet.ChartObjects(Selection.Name).Activate
    End If
    On Error GoTo 0

    ''' Loop through all series in active chart
    For Each mySeries In ActiveChart.SeriesCollection
        '''' Convert X and Y Values to arrays of values
        mySeries.XValues = mySeries.XValues
        mySeries.Values = mySeries.Values
        mySeries.Name = mySeries.Name
    Next mySeries
    Next x
End Sub

Mvg

Rudi

 

[AABE]

Aat, deze zou het moeten doen

Sub DelinkChartFromData()
''' Thanks to Tushar Mehta
    Dim mySeries As Series
    Dim sChtName As String
    Dim x As Long
    ''' Make sure a chart is selected
    On Error Resume Next
    For x = 1 To 8
    ActiveSheet.ChartObjects("Grafiek " & x).Activate
    sChtName = ActiveChart.Name
    If Err.Number <> 0 Then
        MsgBox "This functionality is available only for charts " _
            & "or chart objects"
    Exit Sub
    End If
    If TypeName(Selection) = "ChartObject" Then
        ActiveSheet.ChartObjects(Selection.Name).Activate
    End If
    On Error GoTo 0

    ''' Loop through all series in active chart
    For Each mySeries In ActiveChart.SeriesCollection
        '''' Convert X and Y Values to arrays of values
        mySeries.XValues = mySeries.XValues
        mySeries.Values = mySeries.Values
        mySeries.Name = mySeries.Name
    Next mySeries
    Next x
End Sub

Mvg

Rudi

Bedankt Rudi,

we gaan het proberen..

Aat