公告

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

这篇教程演示使用VBA代码在一组形状中找出尺寸最大的一个图形，也可以用来找出最小的图形。

请参考以下代码中定义的函数：

'====================================================================================================================================================================
'@desc: 在一组形状中找出尺寸最大的一个图形
'@author: Zebe
'@url: http://www.cdrvba.com
'@param sh: 图形对象集合
'@return: 返回一组形状中尺寸最大的一个图形
'====================================================================================================================================================================
Public Function getMaxSizeShapeInShapes(sh As Collection) As Shape
    Dim resultShape As Shape
    Dim i As Integer
    Dim tempShape As Shape
    If sh.Count > 0 Then
        For i = 1 To sh.Count
            Set tempShape = sh.Item(i)
            If i = 1 Then
                Set resultShape = tempShape
            Else
                If tempShape.SizeWidth > resultShape.SizeWidth And tempShape.SizeHeight > resultShape.SizeHeight Then
                    Set resultShape = tempShape
                End If
            End If
        Next i
    End If
    Set getMaxSizeShapeInShapes = resultShape
End Function

相反地，如果要找出最小的图形，可以将以上代码中对尺寸的判断，将大于符号改成小于符号即可。

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-find-the-largest-shape-in-shapes