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` 属性在自选图形上添加了一个文本框，并设置了文本内容。最后，我们使用一些属性来设置文本框的位置、大小和样式。你可以根据需要修改代码来实现你的需求。

相关问题

vba向Excel表中图形上加文字

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

Sub AddTextToChart()
    Dim chtObj As ChartObject
    Dim cht As Chart
    Dim srs As Series
    
    '获取图表对象
    Set chtObj = ActiveSheet.ChartObjects(1)
    Set cht = chtObj.Chart
    
    '获取系列对象
    Set srs = cht.SeriesCollection(1)
    
    '在图表上添加文本框
    cht.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100).TextFrame.Characters.Text = "这是一段文本"
    
    '在系列上添加数据标签
    srs.ApplyDataLabels
    srs.DataLabels.Select
    Selection.ShowValue = True
    Selection.ShowCategoryName = False
    Selection.ShowSeriesName = False
    Selection.Position = xlLabelPositionAbove
    
End Sub

在上面的代码中，我们首先获取了图表对象和系列对象。然后，我们使用 `Shapes.AddTextbox` 方法在图表上添加了一个文本框，并设置了文本内容。最后，我们使用 `ApplyDataLabels` 方法为系列添加了数据标签，并设置了标签的位置和内容。你可以根据需要修改代码来实现你的需求。

vba新建excel表并命名

你可以使用以下的VBA代码来新建一个Excel表并给它命名：

Sub CreateAndNameExcelSheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 新建一个Excel工作簿
    Set wb = Workbooks.Add
    
    ' 在新建的工作簿中新建一个工作表
    Set ws = wb.Worksheets.Add
    
    ' 给新建的工作表命名
    ws.Name = "Sheet1"
    
    ' 保存并关闭工作簿
    wb.SaveAs "C:\路径\文件名.xlsx"
    wb.Close
    
    ' 释放对象变量
    Set ws = Nothing
    Set wb = Nothing
End Sub

你需要将代码中的`"C:\路径\文件名.xlsx"`替换为你想要保存的文件的完整路径和名称。运行这段代码后，它将创建一个新的Excel表，并命名为"Sheet1"，然后保存并关闭工作簿。

希望这可以帮助到你！如果你有任何其他问题，请随时提问。