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