VBA 检查形状名称是否存在 - 汇编

在VBA程序中，我们经常需要使用Shapes对象来处理形状。而在Shapes集合中，每一个形状都有一个名称，可以方便地用来引用此形状。本文将讲述如何使用VBA代码来检查一个形状的名称是否存在。

代码实现

我们可以使用Shapes.Range方法来获取Shapes集合中指定名称的形状。如果该名称不存在，会返回一个null值，可以通过判断该值是否为空来检查形状名称是否存在。下面是一个示例代码：

Public Function IsShapeExist(ByVal sheetName As String, ByVal shapeName As String) As Boolean
    Dim shapeRange As ShapeRange
    Set shapeRange = ThisWorkbook.Sheets(sheetName).Shapes.Range(shapeName)
    IsShapeExist = Not (shapeRange Is Nothing)
End Function

在这个函数中，我们首先使用Sheets对象获取指定名称的工作表对象，然后使用Shapes.Range方法获取该工作表中指定名称的形状。最后，我们判断返回的shapeRange对象是否为空来确定形状名称是否存在。

使用方法

要在VBA程序中使用这个函数，只需要传入要检查的形状所在的工作表名称和形状名称即可。下面是一个示例代码：

Sub Test()
    Dim sheetName As String
    Dim shapeName As String
    Dim result As Boolean
    
    sheetName = "Sheet1"
    shapeName = "Rectangle 1"
    
    result = IsShapeExist(sheetName, shapeName)
    
    If result Then
        Debug.Print "Shape exists"
    Else
        Debug.Print "Shape does not exist"
    End If
End Sub

在这个测试代码中，我们传入了一个“Sheet1”工作表和一个“Rectangle 1”形状名称，然后判断该名称是否存在，并在调试窗口输出结果。

结论

使用这个函数，我们可以方便地检查一个形状的名称是否存在，并根据返回结果来调整后续的处理逻辑。如果你使用了该函数，并发现结果与预期不符，请检查输入的工作表名称和形状名称是否正确。