CorelDRAW VBA - 获取页面边框范围内的所有图形

本函数用来获取页面边框范围内的所有图形，返回指定页面 p 边框范围内的所有形状，返回类型为 Shapes。
具体请参考以下代码实现：

VBA参考代码

'================================================================
' 获取页面边框范围内的所有图形
' p: 页面对象
' 返回: 指定页面 p 边框范围内的所有形状
'================================================================
Public Function getShapesInPageInside(p As Page) As Shapes
    Set getShapesInPageInside = Nothing
    If Not p Is Nothing Then
        Dim sh As Shape
        Set sh = p.SelectShapesFromRectangle(p.LeftX, p.TopY, p.RightX, p.BottomY, False)
        Set getShapesInPageInside = sh.Shapes
    End If
End Function

---

原创声明：本文首发于 《CorelDRAW VBA探秘》 独立站点，请尊重文章版权。
转载请注明原文链接：https://www.cdrvba.com/coreldraw-vba-get-shapes-in-page-inside

---

CorelDRAW VBA - CSDN文章专栏：https://blog.csdn.net/column/details/27356.html