Функция Visio VBA, чтобы увидеть, есть ли фигура перед фигурой или позади нее

Есть ли способ в Visio VBA увидеть, есть ли фигура перед или за фигурой в Visio?

Я думаю, я мог бы написать что-то, что проверяет ограничивающую рамку каждой фигуры на странице, чтобы увидеть, занимает ли она то же место, что и моя фигура. Я бы предпочел использовать что-то встроенное, так как проверка каждой фигуры может занять много времени, поскольку на чертеже появляется все больше и больше фигур.


shapes vba visio
person Jon Fournier    schedule 30.09.2008    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Свойство Shape.SpatialRelation сообщит вам, соприкасаются ли две фигуры. Свойство Shape.Index сообщит вам, что находится впереди или позади в z-порядке.

Вот простой пример:

Public Sub DoShapesIntersect(ByRef shape1 As Visio.Shape, ByRef shape2 As Visio.Shape)

    '// do they touch?
    If (shape1.SpatialRelation(shape2, 0, 0) <> 0) Then

        '// they touch, which one is in front?
        If (shape1.Index > shape2.Index) Then
            Debug.Print shape1.Name + " is in front of " + shape2.Name
        Else
            Debug.Print shape1.Name + " is behind " + shape2.Name
        End If
    Else
        Debug.Print "shape1 and shape2 do not touch"
    End If

End Sub

Подробнее здесь:

Свойство Shape.SpatialRelation в MSDN

person Community    schedule 30.09.2008