Comparing Shape Properties in a Group

[unclebiff]

Hey everyone. I am trying to write a program that allows the user to define the space between two shapes. When I try to run the program I get an error that says "Method or Data Member Not Found" when I use .Group. I am relatively new to VBA but have experience working in the C++ environment. The code:


Sub Spacer()


Dim sel As GroupShapes
Dim TopShape As Shape
Dim BottomShape As Shape
Dim Space As Single
Dim x As Single


sel = ActiveWindow.Selection.ShapeRange(1).Group
If sel.Item(1) > sel.Item(2) Then
TopShape = sel.Item(1)
BottomShape = sel.Item(2)
Else
TopShape = sel.Item(2)
BottomShape = sel.Item(1)
End If


Space = TopShape.Height - BottomShape.Height
x = InputBox("Bottom Space:")
For i = Space To x
BottomShape.IncrementTop 1
i = TopShape.Height - BottomShape.Height
Next i


End Sub

Anyone have any ideas why the Group does not work? Also, if you have any other pointers or ideas, let me know!

[SamT]

I'm not sure, but looking at this line, makes me wonder which Group.Item Property is being compared. It may not be numerical.

If sel.Item(1) > sel.Item(2) Then
I kinda suspect that if you specified which Property you were comparing, it might work. ie:

If sel.Item(1).Width > sel.Item(2).Width Then



In any case, this will bump your thread back to the top. I also re titled this thread to, IMO, better intice somebody who does know PowerPoint.

[John Wilson]

Sub Spacer()

Dim sel As GroupShapes
Dim TopShape As Shape
Dim BottomShape As Shape
Dim Space As Single
Dim x As Single
On Error Resume Next
If ActiveWindow.Selection.ShapeRange(1).Type <> msoGroup Then Exit Sub
Set sel = ActiveWindow.Selection.ShapeRange(1).GroupItems
If sel.Item(1).Top > sel.Item(2).Top Then
Set TopShape = sel.Item(2)
Set BottomShape = sel.Item(1)
Else
Set TopShape = sel.Item(1)
Set BottomShape = sel.Item(2)
End If
x = InputBox("Bottom Space:")
Space = (TopShape.Top + TopShape.Height) - (BottomShape.Top)
BottomShape.Top = TopShape.Top + TopShape.Height + x
End Sub