|
|
#8
08-14-2015, 07:34 AM
|
|||
|
|||
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
|
| Tags |
| crop to fit, macros |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Help Creating Macro to Crop/Resize Images
|
ineedmacrohelp | Word VBA | 1 | 08-06-2015 06:46 AM |
|
***help*** macro needed
|
PokerBob | Excel | 8 | 03-18-2015 02:57 PM |
| Macro Needed to bold specific lines and Macro to turn into CSV | anewteacher | Word VBA | 1 | 05-28-2014 03:59 PM |
| Check box macro help needed | Aflac | Word | 4 | 03-24-2012 07:11 PM |
|
Callout macro needed - Help please
|
Peter Denly | Word VBA | 19 | 07-20-2011 03:30 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode