Originally Posted by
John Wilson
It's not really my area of expertise.
If the chart was created in PowerPoint this might work. It wont if the chart was made in Excel and pasted in. If it's a PowerPoint chart the spreadsheet that opens on double click should say "Chart in PowerPoint" Not just Excel.
[vba]Sub chex()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasChart Then
With oshp.Chart.Axes(xlValue)
.TickLabelPosition = xlLow
End With
End If
Next
Next
End Sub[/vba]