Koppelingen grafieken

[MMV]

Beste,

ik maak via de code van Ron de Bruin een bestand aan en wil dit direct mailen.
Echter, bij het kopieren krijg ik het in Excel 2007 niet voor elkaar om de koppelingen om te zetten naar uiteindelijke waarden zodat de grafiek zijn uiterlijk en opmaak blijft behouden.

Weet iemand een oplossing voor dit probleem? In Excel 2003 had ik dmv onderstaande macro geen problemen mee.

Set wb = ActiveWorkbook

    WorkbookLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
    If IsArray(WorkbookLinks) Then
      For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
          wb.BreakLink _
                  Name:=WorkbookLinks(i), _
                  Type:=xlLinkTypeExcelLinks
      Next i
    'Else
      'MsgBox "No Links to other workbooks"
    End If

 

[Warme bakkertje]

Ik gebruik deze om grafieken te delinken

Sub Charts2Pics()
    Dim objCht As ChartObject, shtTemp As Worksheet, objTemp As Object
    For Each shtTemp In ActiveWorkbook.Worksheets
        For Each objCht In shtTemp.ChartObjects
            objCht.CopyPicture xlScreen, xlPicture
            Set objTemp = shtTemp.Pictures.Paste
            objTemp.Left = objCht.Left
            objTemp.Top = objCht.Top
            objCht.Delete
        Next
    Next
    Set objTemp = Nothing
End Sub

 

[MMV]

Hmmm helaas werkt dit ook niet. Weet iemand misschien de reden waarom Excel 2007 na het verbreken van de koppeling geen resultaten in de grafiek weergeeft?

Hiermee is misschien een work-arround te bedenken....ik ben echter door mijn eigen truukendoos heen.....