Excel使用VBA批量插入Object

可以使用以下VBA代码批量插入Object：

Sub InsertObjects()
    Dim obj As Object
    Dim i As Integer
    
    '循环插入Object
    For i = 1 To 10
        Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
            Link:=False, DisplayAsIcon:=False, Left:=i * 50, Top:=i * 20, _
            Width:=40, Height:=20)
        obj.Name = "Button" & i
        obj.Object.Caption = "Button" & i
    Next i
End Sub

上述代码会在当前活动的工作表中插入10个CommandButton Object，每个Object的位置和名称都会根据循环计数器i自动生成。你可以根据需要修改代码中的Object类型和属性，以实现你想要的批量插入功能。