[已解决]OLEObject.Duplicate 方法

爱疯

在新建工作簿中插入1个activeX命令按钮后。

Sub aa()
Sheet1.CommandButton1.Duplicate
End Sub

运行后，1闪，完了！？

请问么看得出这句的作用？

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-25 11:31

duplicate在英文中就是复制的意思。。。

复制后的控件可以为你所用，你可以在代码中随意创建，也可以删除。

Sub Test()
    Dim objcmd As Object
    Set objcmd = CommandButton1.Duplicate
    objcmd.Left = [A1].Left
    objcmd.Top = [A1].Top
    MsgBox "删除该控件"
    objcmd.Delete
End Sub

跳转到最佳答案楼层

爱疯

郁闷，原来和复制粘贴很像，一下复制了6个，我说怎么点到按钮，名称框里出现的却是CommandButton7 ....?!

原来都复制在前1个按钮上面，拖动后，才发现 ..... [em06]

在有复制粘贴的方法下，为什么还要发明这样一个方法，难道有别的好处么[em09]？

谢谢！

爱疯

2楼问题，依然很想知道

[em11]

chk711

[em01][em01]

amulee

duplicate在英文中就是复制的意思。。。

复制后的控件可以为你所用，你可以在代码中随意创建，也可以删除。

Sub Test()
    Dim objcmd As Object
    Set objcmd = CommandButton1.Duplicate
    objcmd.Left = [A1].Left
    objcmd.Top = [A1].Top
    MsgBox "删除该控件"
    objcmd.Delete
End Sub

吕?布

猜想速度快一些。

两都适用的对象不完全一样的，复制粘贴很常见。适用范围宽，也不只Excel里有。而Duplicate比较专用

爱疯

谢谢阿木、吕布！

存在，必然有道理。。。。。。。。可道理，我却不知道[em19]

特别是针对复制，一定有更好之处，要有办法证明就好了[em11]

amulee

代码不是快嘛。。。

爱疯

谢谢阿木！

只好等下次有问题再看了

[em11]