Break links - sheets with charts

[freshtomm]

Hi guys,

i need to break all links in worksheet, but problem is that some of the sheets contains charts, so normal codes to break links dont work. Is it posibble to break all links both on standard sheets and chart sheets by one code?

Thanks.

 

[Chihiro]

What do you mean by one code?

Since formula links and chart links are different object, even if it's combined into single code, it's really running two separate procedures within a sub.

Just use 2 separate subs and call both in another.

For code to remove chart links refer to link.
http://peltiertech.com/Excel/ChartsHowTo/DelinkChartData.html

 

[Monty]

Mr Freshtomm..

Try this

Sub BreakLinks()
Dim ExternalLinks As Variant
Dim wb As Workbook
Dim x As Long

Set wb = ActiveWorkbook
  ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)

  For x = 1 To UBound(ExternalLinks)
    wb.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
  Next x
Msgbox "Done"
End Sub

 

[freshtomm]

Mr Freshtomm..

Try this

Sub BreakLinks()
Dim ExternalLinks As Variant
Dim wb As Workbook
Dim x As Long

Set wb = ActiveWorkbook
  ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)

  For x = 1 To UBound(ExternalLinks)
    wb.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
  Next x
Msgbox "Done"
End Sub

It works well, thank you very much.