Отвязывание диаграммы Excel с помощью VBA

Question

Привет, я искал решение отменить привязку моей диаграммы (на том же рабочем листе) от значений. Для этого я обычно выбираю данные, перехожу в формулы (F2), нажимаю F9 и вводим

Моя серия будет преобразована в цифры. Я автоматизировал это как sendkeys, я знаю, что есть еще один вариант онлайн, но я хочу, чтобы это решение было как sendkeys. В основном выберите Data> F2> F9> Enter. Это работает отлично, если я делаю это вручную.

Мой Vba код выглядит следующим образом

ActiveChart.ChartArea.Select 
Application.SendKeys ("^{s}") 
ActiveChart.SeriesCollection(2).Select 
Application.SendKeys ("{f2}"), True 
Application.SendKeys ("{f9}"), True 
Application.SendKeys ("{f9}"), True 
Application.SendKeys ("~"), True 
Application.SendKeys ("^{s}") 

ActiveChart.ChartArea.Select 
ActiveChart.SeriesCollection(1).Select 
Application.SendKeys ("{f2}"), True 
Application.SendKeys ("{f9}"), True 
Application.SendKeys ("~"), True 

Тем не менее, одна половина 2-го набора данных по-прежнему связаны между собой.

Спасибо за вашу помощь заранее - LGR

Answer 1

Вы можете сделать что-то вроде этого для преобразования Series.Values с ссылкой в Range, в фактические базовые значения.

Sub foo() 
Dim cht As Chart 
Dim srs As Series 

Set cht = ActiveChart 

For Each srs In cht.SeriesCollection 

    srs.Values = srs.Values 

Next 

End Sub 

Answer 2

Старайтесь избегать отправки ключей. Используйте вместо этого:

ActiveWindow.Selection.ShapeRange(1).LinkFormat.BreakLink 

Источник: http://www.vbaexpress.com/forum/showthread.php?45829-How-to-break-links-to-excel-chart

Редактировать: Согласно комментарий от Дэвида Zemens, это будет работать на внедренные диаграммы, но не с первенствовать диаграммы объектов