Quote:
Originally Posted by JohnWilson
A photo isn't really a sample of the slide but at least I can see you mean a Smart Art layout.
Make sure the Smart Art is selected and try this - USE A COPY!
Code:
Sub chexSA()
Dim osa As SmartArt
Dim osld As Slide
On Error Resume Next
Dim i As Integer
Set osa = ActiveWindow.Selection.ShapeRange(1).SmartArt
For i = 1 To osa.AllNodes.Count
osa.AllNodes(i).Shapes(2).Select
CommandBars.ExecuteMso ("PictureFitCrop")
Next
End Sub
|
Thanks man it worked. Really thanks....