使用AddOLEObject方法总结计划.docx

1-1 使用 AddOLEObject 方法 在工作表中添加  ActiveX  控件，还可以使用  AddOLEObject  方法，如下面的代码所示。 #001 Sub AddShapes() #002 Dim ShpBut As Shape #003 On Error Resume Next #004 Sheet1.OLEObjects("MyButton").Delete #005 Sheet1.Shapes.AddOLEObject(ClassType:="Forms.CommandButton.1", _ #006 Left:=108, Top:=72, Width:=108, Height:=27) #007 ShpBut.Name = "MyButton" #008 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()"  Set  ShpBut  With  = #014  .InsertLines 3, vbTab & "MsgBox ""  这是使用  AddOLEObject  方法新建的 按钮 !""" #015 #016 #017  .InsertLines 4, "End Sub" End With End Sub 代码解析： AddShapes  过程使用  AddOLEObject  方法在向工作表中添加  ActiveX  控件中的命令按 钮和相应的代码。 第 5、6  行代码，使用  AddOLEObject  方法在向工作表中添加  ActiveX  控件中的命令按 钮， AddOLEObject  方法创建  OLE  对象，语法如下： expression.AddOLEObject(ClassType,  FileName,  Link,  DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height) AddOLEObject 方法参数与 Add 方法类似，请参阅技巧 错误！未找到引用源。 。 运行 AddShapes 过程，将在工作表中添加一个命令按钮和相应的代码，单击按钮显示 一个消息框，如图 错误！文档中没有指定样式的文字。 -1 所示。 图 错误！文档中没有指定样式的文字。 -1 使用 AddOLEObject 方法添加 ActiveX 控件