Reformatting a grouped shape and a similar combination that is not grouped (VBA)

[juanbolas]

Hello everyone,
I've been trying to work this out but am stuck.
My main problem is that I can't select a shape after ungrouping - referencing the 2 o 3 ungrouped items.

I have a series of flow chart shapes that have a reference number on the top left of the main. shape. They number in the hundreds now. Because I was lazy, some of the shapes have the reference number and the main shape grouped together, others don't, Additionally some shapes have an additional grouping with a text shape to increase text area (the decision shape for example). The main shape and textbox are (or should be the same size).

Due to the holes I have in the code, I haven't been able to test what I've written so far.
Thanks in advance for your help!


Sub FormatFlowChartShape()

Dim oSlide As slide
Dim oShape As Shape
Dim oNewShape As Shape
Dim AreaTolerance As Integer
Dim ShapeNumberHeight As Integer
Dim ShapeNumberWidth As Integer

''AreaTolerance = 0.2 '' shape may be +/-20%

ShapeNumberHeight = 19.85
ShapeNumberWidth = 19.85
ShapeMainHeight = 48.76
ShapeMain Width = 119.65


Set oSlide = Application.ActiveWindow.View.slide
Set oShape = ActiveWindow.Selection.ShapeRange(1)

' store shape position of posibly grouped shape
With oShape
ShapeLeft = .Left
ShapeTop = .Top
ShapeWidth = .Width
ShapeHeight = .Height
End With
' ungroup shapes if necessary
If oShape.GroupItems.Count > 0 Then
If oShape.Type = msoGroup Then
oShape.Ungroup
' in some cases there are two grouping levels
' because a textbox is used for more text space
oShape.Ungroup
Debug.Print "Ungrouped"
End If

' select first shape
'which is the shapes step number in the flowchart
' it is usually located slightly offset to the
' left and top of the main flowchart shape
' having trouble selecting shape that was in a group
' i was thinking of find shape within the area of the ungrouped shape
' and selecting it. Does this make sense?

' select it -- HELP!!!
' if it doesn't exist, create a new shape
If Not ShapeExists Then
Set oNewShape = oSlide.Shapes.AddShape( _
Type:=msoRoundedRectangle, _
Left:=24, _
Top:=NewSlideTop, _
Width:=ShapeNumberWidth, _
Height:=ShapeNumberHeight)
End If

' format shape stuff goes here
' format

'Now main second shape

' select it -- HELP!!!

'reposition number Shape to main shape

oShape.Left = .Left - ShapeNumberLeft / 2
oShape.Top = .Top - ShapeNumberTop / 2
oShape.Width = ShapeMainWidth
oShape.Height = ShapeMainHeight

End With

' because a textbox is used for more text space

' format shape stuff goes here
' format

' if text box exists process it
' Size
' Format

' Set z-order
' Send geometric shape to back
' if text box Bring text box yo front
' Bring number to front

End Sub

[John Wilson]

First I notice you have posted this question on at least one other site. It is always good to mention this simply because you may get an answer in one place leaving people working on your problem in other sites. In my expeperience posters rarely go back and say "Thanks I got an answer on this site." (also a good idea BTW)

The best way to do this is to loop through the groupitems before ungrouping and change the name of the groupitem shape to something unigue. Once ungrouped the name is retained and you can then select (setting Replace flag to False) or change shapes with that name.

[juanbolas]

Thanks for the head's up John. I will make sure to cross-post and credit for the solution.

With regard to your proposed solution, do you mean that while looping I would have to identify the type of shape/size then name it?

Thanks in advance.

[John Wilson]

I meant something like


If oShape.Type = msoGroup Then
For L = 1 To oShape.GroupItems.Count
oShape.GroupItems(L).Name = "Group_Item" & CStr(L)
Next
oShape.Ungroup

You could also just try


oShape.Ungroup.Select False



In most cases the group items will be selected

[juanbolas]

Thanks a million!

[juanbolas]

John, I hit the wall with a couple of shapes that have a subgroup. Any idea on how I can proceed? Loop through the sub group? If I ungroup I lose the selection.

The question probably should be: how do I ungroup a group with a nested group while keep cells selected?

Thanks in advance,