vba A1:A10 单元格如果双击时将当前sheet 内的对象caption的值与单元格值相同的对象显示出来，否则弹窗提示无该对象

你可以在当前 sheet 的 VBA 代码中添加以下代码实现：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim obj As Object
    Dim objCaption As String
    
    objCaption = Target.Value  '获取双击的单元格的值
    
    For Each obj In Me.OLEObjects  '遍历当前 sheet 内的所有对象
        If obj.Object.Caption = objCaption Then  '如果对象的 Caption 值与单元格的值相同
            obj.Visible = True  '则显示该对象
            Exit Sub
        End If
    Next obj
    
    '如果没有找到相应的对象，则弹窗提示无该对象
    MsgBox "无该对象：" & objCaption, vbInformation, "提示"
    
End Sub

注意：该代码只对当前 sheet 内的 ActiveX 控件有效，对于普通的图形对象（如矩形、椭圆等）无效。如果需要对普通的图形对象实现类似的功能，可以尝试使用其他方式，比如给每个图形对象设置一个 Tag 属性，然后在双击单元格时遍历图形对象并根据 Tag 属性值来判断是否显示该对象。