Открыть данные диаграммы Power Point в Excel

Я пытаюсь создать макрос, чтобы очистить листы Excel за диаграммами в точке питания, чтобы там были только данные, используемые в диаграмме, и нет формул.

Я собрал это вместе, что работает, когда я открываю данные диаграммы в Excel, но я надеюсь, что смогу создать макрос, который циклически проходит через каждый график в книге и открывает данные диаграммы в Excel для меня, поэтому я могу выполнять по каждому из них.

Sub ChartCleaningPP() 'Paste values of table Range("Table1[#All]").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Dim Cell As Range 'clear other cells For Each Cell In ActiveSheet.UsedRange If Intersect(Cell, Selection) Is Nothing Then Cell.Clear End If Next Cell 'remove hidden For lp = 256 To 1 Step -1 If Columns(lp).EntireColumn.Hidden = True Then Columns(lp).EntireColumn.Delete Else Next For lp = 65536 To 1 Step -1 If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else Next 'close window ActiveWindow.Close End Sub 

Попробуй это:

 Sub ChangeCharts() Dim ws As Worksheet Dim myChart As ChartObject For Each ws In ThisWorkbook.Worksheets For Each myChart In ws.ChartObjects 'your code here 'ie Call ChartCleaningPP Next myChart Next ws End Sub 

EDIT: (Запустите Excel Makro от PP) Необходимо активировать библиотеки MS Excel в PP.

 Sub RunExcelMakro() Dim wk As Object Dim Path As String CreateObject ("Excel.Application") Set xlApp = New Excel.Application xlApp.Visible = True Path = "C:\Users\User\Desktop\F\1.xlsm" 'Edit Path Set wk = xlApp.Workbooks.Open(Path) xlApp.Run "YourMakro" xlApp.Quit End Sub 

РЕДАКТИРОВАТЬ:

 Sub M1() Dim sld As Slide Dim sh As Shape Dim Path As String Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes If sh.Type = msoLinkedOLEObject Then With sh.LinkFormat Path = .SourceFullName xlApp.Workbooks.Open Path End With End If Next sh Next sld End Sub 
  • API PHP для oleObject.bin
  • Найти и заменить на рабочий лист Excel PowerPoint для диаграммы
  • EXcel VBA: Excel Macro для создания таблицы в PowerPoint
  • Редактирование встроенных объектов в powerpoint
  • VBA не копирует всю диаграмму в PowerPoint
  • PowerPoint WebBrowser для отображения файла Excel
  • Список Excel для слайдов PowerPoint
  • Стретч-таблица из Excel в PowerPoint в C #
  • Печать из ppt VBA в электронную таблицу Excel
  • Экспорт диаграмм Excel в виде изображений с использованием Powerpoint VBA
  • Скопируйте 100s графов Excel из одного рабочего листа в PowerPoint в C #
  • Давайте будем гением компьютера.