使用AddOLEObject方法.docVIP

使用AddOLEObject方法ActiveX控件，还可以使用AddOLEObject方法，如下面的代码所示。 #001 Sub AddShapes #002 Dim ShpBut As Shape #003 On Error Resume Next #004 Sheet1.OLEObjects MyButton .Delete #005 Set ShpBut Sheet1.Shapes.AddOLEObject ClassType: Forms.CommandButton.1, _ #006 Left: 108, Top: 72, Width: 108, Height: 27 #007 ShpBut.Name MyButton #008 With ActiveWorkbook.VBProject.VBComponents Sheet1.CodeName .CodeModule #009 If .Lines 1, 1 Option Explicit Then #010 .InsertLines 1, Option Explicit #011 End If #012 If .Lines 2, 1 Private Sub MyButton_Click Then Exit Sub #013 .InsertLines 2, Private Sub MyButton_Click #014 .InsertLines 3, vbTab MsgBox 这是使用AddOLEObject方法新建的按钮! #015 .InsertLines 4, End Sub #016 End With #017 End Sub 代码解析： AddShapes过程使用AddOLEObject方法在向工作表中添加ActiveX。AddOLEObject方法在向工作表中添加ActiveXAddOLEObject方法创建OLE对象expression.AddOLEObject ClassType, FileName, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height AddOLEObject方法参数与Add方法类似，请参阅技巧129-1。 运行AddShapes过程，将在工作表中添加图 1293所示。1293 使用AddOLEObject方法添加ActiveX