VBA Code


Public Sub testing() 
   Dim objGraph As Graph.Chart
   Dim objDataSheet As Graph.Datasheet

   Set objGraph = ActiveWindow.Selection.ShapeRange.OLEFormat.Object()
   Set objGraph = ActivePresentation.Slides(1).Shape("Shape 2").OleFormat.Object

   Set objDataSheet = objGraph.Application.DataSheet

   objDataSheet.Application.PlotBy = Graph.xlrowcol.xlrows
   objDataSheet.Application.PlotBy = Graph.xlrowcol.xlcolumns

End Sub




© 2017 Better Solutions Limited. All Rights Reserved. © 2017 Better Solutions Limited

Prev