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