PPT.WorkWithSmartArt in MS PowerPoint 2010 to List SmartArt Names in VB.NET

Posted in VB.NET | VBA on November 08, 2019

Tags: List SmartArt Names, MS Powepoint tutorial, MS PowerPoint 2010, PPT.WorkWithSmartArt

In this article I am going to explain about how to List SmartArt Names in a Microsoft PowerPoint 2010 presentation.

3820

Introduction

In this article I am going to explain about how to List SmartArt Names in a Microsoft PowerPoint 2010 presentation. For this we use PPT.WorkWithSmartArt in Microsoft PowerPoint 2010. Using PPT.WorkWithSmartArt we can List SmartArt Names in a Microsoft PowerPoint 2010 presentation.

Microsoft Office 2010 offer some powerful tools, using this tools you can create application. Using Microsoft Visual Basic for Applications (VBA) you can create your own application according to your need. These application can performer some specific task.

For creating application we can use

VBA host of Excel 2010
VBA host of PowerPoint 2010
VBA host of Word 2010

NOTE : OneNote 2010 is not a VBA host.

Code that we use in this application are given below

Sub CreateSmartArtList()

    Dim a As Integer
    For a = 1 To Application.SmartArtLayouts.Count
        Debug.Print(i, Application.SmartArtLayouts(a).Name)
    Next a
End Sub

Sub DemonstrateSmartArt()
    With ActivePresentation.Slides(1)
        Dim a As Integer
        ' Clear out existing shapes:
        For a = .Shapes.Count To 1 Step -1
            .Shapes(a).Delete()
        Next a

        Dim vip As Shape

        Call CreateSmartArt(1, 10, 10, 100, 100)
        Call .Shapes.AddShape(msoShape12pointStar, 10, 120, 100, 100)
        Call CreateSmartArt(4, 120, 10, 100, 100)
        Call .Shapes.AddShape(msoShapeCloud, 120, 120, 100, 100)
        Call CreateSmartArt(13, 240, 10, 400, 100)

        For Each vip In .Shapes
           Debug.Print("Shape " & a & " has smart art: " & vip.HasSmartArt)
        Next vip

        ' We know that shape 1 has smart art--copy it to a new shape.
        Call .Shapes.AddSmartArt(.Shapes(1).SmartArt.Layout, 360, 120, 100, 100)

    End With
End Sub

Sub CreateSmartArt(smartArtLayoutID As Integer, left As Integer, top As Integer, _
width As Integer, height As Integer)

    ' Create Basic Blocks SmartArt
    Dim vip As Shape
    vip = ActivePresentation.Slides(1).Shapes. _
      AddSmartArt(Application.SmartArtLayouts(smartArtLayoutID), left, top)
    vip.width = width
    vip.height = height
    Dim i As Integer
    With vip.SmartArt
        ' Add some nodes, then set the text for all of them.
        .Nodes.Add()
        .Nodes.Add()
        .Nodes.Add()
        .Nodes.Add()
        For i = 1 To .Nodes.Count
            .Nodes(a).TextFrame2.TextRange.Text = "Cell " & a
        Next a
    End With
    CreateBasicBlocks = vip
End Sub