如何解决Excel VBA-使用代码将ActiveX TreeView控件添加到工作表
我正在尝试在工作表上创建ActiveX TreeView控件并通过代码命名。
有趣的是,当我复制表格时,TreeView控件不会随它一起复制,因此我的解决方法是仅通过代码插入控件。我挖了一下,找不到关于用代码创建它的任何信息。
有人知道该怎么做吗?
解决方法
请尝试下一段代码。仅用于指导您使用该方法:
Sub AddTreeControl()
Dim sh As Worksheet,TrC As OLEObject,TC As Object
Set sh = ActiveSheet
Set TrC = sh.OLEObjects.Add(ClassType:="MSComctlLib.TreeCtrl.2",link:=False _,DisplayAsIcon:=False,left:=200,top:=70,width:=150,height:= _
200)
Set TC = TrC.Object
With TrC
.Name = "TreeControlX"
.Select
End With
With TC
.nodes.Add Key:="item 1",Text:="Parent 1"
.nodes.Add "item 1",tvwChild,Key:="one",Text:="ITEM 1,Child node 1"
.nodes.Add "item 1","two","ITEM 1,Child node 2"
.nodes.Add Key:="item 2",Text:=" Parent 2"
.nodes.Add Key:="item 3",Text:=" Parent 3"
End With
End Sub
,
感谢FaneDuru。
这是我想出的:
Sub Test()
'Create an ActiveX TreeView,assign dimensions,and name
With Sheets("Sheet1").OLEObjects.Add(ClassType:="MSComctlLib.TreeCtrl.2",_
Left:=55,Top:=450,Width:=330,Height:=400)
.Name = "InsertNameHere"
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。