Grouping of shapes in PowerPoint VBA

[Paul_Hossler]

I moved some logic into a separate function, and specified the types of shapes that I considered Group-able

It includes Textboxes and Pictures, but not Connectors. Those you can do manually

Private Function pvtGroupAble(shp As Shape) As Boolean
    pvtGroupAble = False
    
    Select Case shp.Type
        Case msoAutoShape
            If shp.AutoShapeType <> msoShapeMixed Then pvtGroupAble = True
        Case msoGroup, msoTextBox, msoPicture
            pvtGroupAble = True
    End Select
End Function

 

[CuriosityBug]

You are genius Paul! Thanks for your patience and effort. This solved my problem 99%. I am attaching ppt with two issues(slide 3 and 4), I am facing (not being skeptical). Just if you can input any thoughts if possible. thanks again Paul.

I moved some logic into a separate function, and specified the types of shapes that I considered Group-able

It includes Textboxes and Pictures, but not Connectors. Those you can do manually

Private Function pvtGroupAble(shp As Shape) As Boolean
    pvtGroupAble = False
    
    Select Case shp.Type
        Case msoAutoShape
            If shp.AutoShapeType <> msoShapeMixed Then pvtGroupAble = True
        Case msoGroup, msoTextBox, msoPicture
            pvtGroupAble = True
    End Select
End Function