SmartArt object
PPT 2010 finally adds SmartArt support in the object model and
it is quite extensive. In PPT 2007, the smartart information could only be read
by treating the shape as a group or breaking it apart (See:
Extract text from SmartArt).
Supported versions: PowerPoint 2010
'Enumerate all the layouts available on the system
For I = 1 To Application.SmartArtLayouts.Count
Debug.Print Application.SmartArtLayouts(I).Category
Debug.Print Application.SmartArtLayouts(I).Id
Debug.Print Application.SmartArtLayouts(I).Name
Debug.Print Application.SmartArtLayouts(I).Description
Next
'To create a smartart shape, you need to pass a reference to the type of smartart layout you wish to create
Dim oSALayout As SmartArtLayout
Set oSALayout = Application.SmartArtLayouts(1) 'Get a reference to the 1st smartart layout
'Create a smartart shape
Set oShp = ActivePresentation.Slides(1).Shapes.AddSmartArt(oSALayout)
'Add text to the Smartart
For I = 1 To oShp.SmartArt.AllNodes.Count
oShp.SmartArt.AllNodes(I).TextFrame2.TextRange.Text = "Sample " & I
Next
'Read the text back
With oShp
If .Type = msoSmartArt Then
For I = 1 To .SmartArt.AllNodes.Count
Debug.Print .SmartArt.AllNodes(I).TextFrame2.TextRange.Text
Next
End If
End With
|
| |