vba向Excel表上自选图形上加文字

你可以使用 VBA 代码向 Excel 表格中的自选图形（Shape）添加文本。以下是一个示例代码：

Sub AddTextToShape()
    Dim shp As Shape
    
    '获取自选图形对象
    Set shp = ActiveSheet.Shapes("自选图形 1")
    
    '在自选图形上添加文本框
    shp.TextFrame.Characters.Text = "这是一段文本"
    
    '设置文本框的位置
    shp.TextFrame.Characters.Font.Size = 14
    shp.TextFrame.Characters.Font.Bold = True
    shp.TextFrame.Characters.Font.ColorIndex = 3
    shp.TextFrame.VerticalAlignment = xlVAlignCenter
    shp.TextFrame.HorizontalAlignment = xlHAlignCenter
    
End Sub

在上面的代码中，我们首先获取了自选图形对象。然后，我们使用 `TextFrame.Characters.Text` 属性在自选图形上添加了一个文本框，并设置了文本内容。最后，我们使用一些属性来设置文本框的位置、大小和样式。你可以根据需要修改代码来实现你的需求。