sub 选中非表格图片标题的地方

在Excel VBA中，如果你想要通过编写子程序（Sub）来选中非表格图片的标题位置，你需要找到图片对象并定位到其上方的文本框或其他包含标题的位置。以下是一个基本的示例，假设图片有一个关联的注释文本框（CaptionProperty）：

Sub SelectImageTitle()
    Dim ws As Worksheet ' 工作表对象
    Dim pic As Shape ' 图片对象
    Dim captionBox As TextBox ' 文本框对象
    Dim titleRow As Long ' 标题所在的行数

    ' 设置工作表
    Set ws = ActiveSheet

    ' 遍历所有图片
    For Each pic In ws.Shapes
        If TypeOf pic Is Shape And Not TypeOf pic Is OLEObject ' 确保不是嵌入的对象
            ' 检查图片是否有caption box
            If pic.HasCaption Then
                Set captionBox = pic.CaptionFrame.TextFrame2.TextRange
                
                ' 获取标题所在行
                titleRow = pic.Top - captionBox.Characters(1).Height ' 假设标题位于文本框底部

                ' 选中标题所在的单元格或行
                ws.Cells(titleRow, "A").Select ' 假设图片左上角在A列
            End If
        End If
    Next pic
End Sub

这个子程序会在当前活动工作表的所有图片上查找标题，并将相应的单元格选中。