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
© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrev