vba Execl 為工作表新增控制項

2021-09-01 01:19:42 字數 791 閱讀 8740

1. 用ole的方法為工作表新增控制項,返回值是oleobject,返回值 .object就是被新增控制項的型別,例如下面這個新增乙個圖表控制項,mytchart 就是被新增控制項,可以設定相關屬性和呼叫方法

dim oleobject as oleobject
dim mytchart as teechart.tchart
set oleobject  = activesheet.oleobjects.add(classtype:="teechart.tchart.8", link:=false, _

displayasicon:=false, left:=activecell.left, top:=activecell.top, width:=450, height:=285)

set mytchart = oleobject.object
2. 這種方法也同樣能新增控制項,但是不是所有的都能新增,上面的圖表控制項就加不了

dim mybutton as button

set mybutton = activesheet.buttons.add(activecell.left , activecell.top, 54, 24)

新增事件 「toolsbtn_click」這個事件要在【模組】中定義,否則訪問不到,會提示找不到巨集......

toolsbtn.onaction = "toolsbtn_click"

mysql 表 索引 mysql 為表新增索引

索引作用 在索引列上,除了上面提到的有序查詢之外,資料庫利用各種各樣的快速定位技術,能夠大大提高查詢效率。特別是當資料量非常大,查詢涉及多個表時,使用索引往往能使查詢速度加快成千上萬倍。例如,有3個未索引的表t1 t2 t3,分別只包含列c1 c2 c3,每個表分別含有1000行資料組成,指為1 1...

Mysql 為表新增外來鍵約束

sql語句格式 新增外來鍵約束 alter table 從表 add constraint 外來鍵 形如 fk 從表 主表 foreign key 從表外來鍵字段 references 主表 主鍵字段 如果mysql報錯 error code 1215.cannot add foreign key ...

SQl為表新增和刪除列

1 刪除列 alter table transbetrecord drop column toprojectcode 2 新增列 alter table transbetrecord add toprojectcode varchar 50 default null 1.增加字段 alter tab...