用Excel绘制电路图文档格式.docx
- 文档编号:20511464
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:66
- 大小:37.81KB
用Excel绘制电路图文档格式.docx
《用Excel绘制电路图文档格式.docx》由会员分享,可在线阅读,更多相关《用Excel绘制电路图文档格式.docx(66页珍藏版)》请在冰豆网上搜索。
PublicmyXtAsDouble
声明双精度数值变量_线条宽度
PublicmyLjAsString
声明字符变量_工作表路径
'
***************************************************************************************************
工作表打开自动运行
SubAuto_Open()
myRGB=0
颜色黑色
myXt=1.5
线条宽度
myLj=ThisWorkbook.Path
获得工作表路径
CallDLMenu
调用菜单处理过程
EndSub
自定义_电路菜单
PublicSubDLMenu(OptionalByReftemzfAsString="
"
)
DimmybarAsCommandBar
DimmyMenuAsObject
DimmymenuitemAsObject
ForEachdqInApplication.CommandBars
在当前菜单中查找"
电路菜单"
有则删除
Ifdq.Name="
ThenApplication.CommandBars("
).Delete
Next
添加菜单栏Name:
菜单栏的名称Position:
新菜单栏的位置或者类型
MenuBar:
新菜单栏不取代当前活动菜单栏Temporary:
新菜单栏成为临时,程序关闭时被删除
Setmybar=CommandBars.Add(Name:
="
Position:
=msoBarTop,MenuBar:
=False,Temporary:
=True)
员工管理菜单及菜单项=========================================================================================
添加菜单Type:
指定添加到菜单栏中的菜单类型Temporary:
新菜单成为临时,程序关闭时被删除
SetmyMenu=mybar.Controls.Add(Type:
=msoControlPopup,Temporary:
myMenu.Caption="
电路图"
菜单标题
----------------------------------------------------------------------------------------------
添加菜单项Type:
指定添加到菜单中的菜单项类型
Setmymenuitem=myMenu.Controls.Add(Type:
=msoControlButton)
Withmymenuitem
.BeginGroup=True
增加间隔线
.Caption="
线路"
菜单项标题
.OnAction="
myDL_xl"
点击引发的过程
EndWith
电阻"
myDL_dz"
电容"
myDL_dr"
电感"
myDL_dg"
半导体"
myDL_bdt"
设备"
myDL_sb"
mybar.Visible=True
显示自定义的菜单栏
Setmybar=Nothing
释放内存
SetmyMenu=Nothing
Setmymenuitem=Nothing
自定义_工具栏_线路
SubmyDL_xl(OptionalByReftemzfAsString="
DimxBarAsCommandBar,xButtonAsCommandBarButton
电路菜单_线路"
Then
Application.CommandBars("
ExitSub
EndIf
SetxBar=CommandBars.Add("
msoBarTop,False,True)
添加菜单
SetxButton=xBar.Controls.Add(msoControlButton)
添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption
图像和文本且文本位于图像的右侧
横线"
按钮标题
.Picture=LoadPicture(myLj+"
\电路图标\xl01.jpg"
)
加载图片
.Mask=LoadPicture(myLj+"
透明效果
xl_hx"
.TooltipText="
提示文本
竖线"
\电路图标\xl02.jpg"
xl_sx"
相交线"
\电路图标\xl03.jpg"
xl_3xjx"
三相交线"
\电路图标\xl04.jpg"
xl_4xjx"
四相交线"
十字线"
\电路图标\xl05.jpg"
xl_szx"
接地线"
\电路图标\xl06.jpg"
xl_jdx"
线头"
\电路图标\xl07.jpg"
xl_xt"
xBar.Visible=True
SetxBar=Nothing
SetxButton=Nothing
自定义_工具栏_电阻
SubmyDL_dz(OptionalByReftemzfAsString="
电路菜单_电阻"
保险丝"
\电路图标\dz00.jpg"
dz_bxs"
电阻器"
\电路图标\dz01.jpg"
dz_dzq"
可变电阻"
\电路图标\dz02.jpg"
dz_kbdz"
电位器"
\电路图标\dz03.jpg"
dz_dwq"
热敏电阻"
\电路图标\dz04.jpg"
dz_rmdz"
压敏电阻"
\电路图标\dz05.jpg"
dz_ymdz"
自定义_工具栏_电容
SubmyDL_dr(OptionalByReftemzfAsString="
电路菜单_电容"
电容器"
\电路图标\dr01.jpg"
dz_drq"
可变电容"
.Picture=Lo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 绘制 电路图
![提示](https://static.bdocx.com/images/bang_tan.gif)