Getting BoundingBox to work

[geejay]

Has anyone been able to get BoundingBox to work?

I am trying to find out the border of all the shapes on a page, and the
results are not correct.

I am using Visio.VisBoundingBoxArgs.visBBoxExtents as a flag to
BoundingBox(), on a selection (ActiveWindow.SelectAll())

 

[JuneTheSecond]

Hi,

BoundingBox sometimes makes mistake.
For example, Bounding box returns wrong answer when you turned the selection.
I think it is a bug in Visio.
My practice is to use DrawARegion and DrawRectangle.
For example.
Sub test()
Dim shpRg As Visio.Shape
Dim shpRect As Visio.Shape
Dim x As Double, y As Double, w As Double, h As Double

Set shpRg = ActiveWindow.Selection.DrawRegion(0, 0)
x = shpRg.Cells("PinX")
y = shpRg.Cells("PinY")
w = shpRg.Cells("Width")
h = shpRg.Cells("Height")

Set shpRect = ActivePage.DrawRectangle(x - w * 0.5, y + h * 0.5, x + w *
0.5, y - h * 0.5)
shpRect.SendToBack
shpRg.Delete
End Sub

--
Best Regards.

JuneTheSecond
Now, visual calculation is more visual.
http://www.geocities.jp/visualcalculation/english/index.html