用VBA设置工作簿中所有工作表中两个形状的可见性和不可见性

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。通过使用VBA，可以编写自动化任务和自定义功能，以提高工作效率。

要设置工作簿中所有工作表中两个形状的可见性和不可见性，可以使用以下VBA代码：

Sub SetShapeVisibility()
    Dim ws As Worksheet
    Dim shape1 As Shape
    Dim shape2 As Shape
    
    For Each ws In ThisWorkbook.Worksheets ' 循环遍历工作簿中的所有工作表
        For Each shape1 In ws.Shapes ' 循环遍历工作表中的所有形状
            If shape1.Name = "Shape1" Then ' 根据形状名称判断
                shape1.Visible = msoFalse ' 设置为不可见
            End If
        Next shape1
        
        For Each shape2 In ws.Shapes ' 循环遍历工作表中的所有形状
            If shape2.Name = "Shape2" Then ' 根据形状名称判断
                shape2.Visible = msoTrue ' 设置为可见
            End If
        Next shape2
    Next ws
End Sub

上述代码首先通过For Each循环遍历工作簿中的所有工作表，然后再通过嵌套的For Each循环遍历每个工作表中的所有形状。通过判断形状的名称，可以确定要设置可见性和不可见性的具体形状。在上面的代码中，我们使用了"Shape1"和"Shape2"作为示例形状的名称，你可以根据实际情况修改。

对于VBA中可见性的设置，使用shape.Visible属性，msoTrue表示可见，msoFalse表示不可见。

需要注意的是，以上代码只是一个示例，实际情况可能会根据具体需求而有所不同。在实际使用中，你可能需要根据实际情况调整代码来满足特定需求。

关于VBA以及工作簿、工作表、形状的相关知识，你可以参考以下资料：

• VBA官方文档：https://docs.microsoft.com/zh-cn/office/vba/api/overview/excel
• VBA教程：https://www.w3schools.com/vba/
• Excel VBA教程：https://www.excel-easy.com/vba.html

在腾讯云的产品中，与Excel工作簿、工作表、形状相关的产品可能不太直接，无法给出相关推荐的产品和链接地址。但是，腾讯云提供了丰富的云计算服务，如云服务器、对象存储、云数据库等，可以在开发过程中使用这些服务来存储、处理和分析数据。

希望以上信息对你有所帮助。如有更多问题，欢迎继续提问。