用Excel绘制电路图.docx
《用Excel绘制电路图.docx》由会员分享，可在线阅读，更多相关《用Excel绘制电路图.docx（128页珍藏版）》请在冰点文库上搜索。
用Excel绘制电路图
用Excel绘制电路图（原创）_1
模块_菜单代码:
PublicmySheAsWorksheet '声明对象变量
PublicmyJhAsCollection '声明集合变量
PublicmyJhsz（） '声明动态数组变量
PublicmyRGBAsLong '声明长整数值变量_颜色
PublicmyLeftAsDouble '声明双精度数值变量_左边距
PublicmyTopAsDouble '声明双精度数值变量_右边距
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:
=True）
myMenu.Caption="电路图" '菜单标题
'----------------------------------------------------------------------------------------------
'添加菜单项Type:
指定添加到菜单中的菜单项类型
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="线路" '菜单项标题
.OnAction="myDL_xl" '点击引发的过程
EndWith
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="电阻" '菜单项标题
.OnAction="myDL_dz" '点击引发的过程
EndWith
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="电容" '菜单项标题
.OnAction="myDL_dr" '点击引发的过程
EndWith
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="电感" '菜单项标题
.OnAction="myDL_dg" '点击引发的过程
EndWith
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="半导体" '菜单项标题
.OnAction="myDL_bdt" '点击引发的过程
EndWith
Setmymenuitem=myMenu.Controls.Add（Type:
=msoControlButton）
Withmymenuitem
.BeginGroup=True '增加间隔线
.Caption="设备" '菜单项标题
.OnAction="myDL_sb" '点击引发的过程
EndWith
mybar.Visible=True '显示自定义的菜单栏
Setmybar=Nothing '释放内存
SetmyMenu=Nothing
Setmymenuitem=Nothing
EndSub
'***************************************************************************************************
'自定义_工具栏_线路
SubmyDL_xl（OptionalByReftemzfAsString=""）
DimxBarAsCommandBar,xButtonAsCommandBarButton '声明对象变量
ForEachdqInApplication.CommandBars '在当前菜单中查找"电路菜单",有则删除
Ifdq.Name="电路菜单_线路"Then
Application.CommandBars（"电路菜单_线路"）.Delete
ExitSub
EndIf
Next
SetxBar=CommandBars.Add（"电路菜单_线路",msoBarTop,False,True） '添加菜单
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="横线" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl01.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl01.jpg"） '透明效果
.OnAction="xl_hx" '点击引发的过程
.TooltipText="横线" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="竖线" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl02.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl02.jpg"） '透明效果
.OnAction="xl_sx" '点击引发的过程
.TooltipText="竖线" '提示文本
EndWith
'SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
'WithxButton
' .Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
' .Caption="相交线" '按钮标题
' .Picture=LoadPicture（myLj+"\电路图标\xl03.jpg"） '加载图片
' .Mask=LoadPicture（myLj+"\电路图标\xl03.jpg"） '透明效果
' .OnAction="xl_3xjx" '点击引发的过程
' .TooltipText="三相交线" '提示文本
'EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="相交线" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl04.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl04.jpg"） '透明效果
.OnAction="xl_4xjx" '点击引发的过程
.TooltipText="四相交线" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="十字线" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl05.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl05.jpg"） '透明效果
.OnAction="xl_szx" '点击引发的过程
.TooltipText="十字线" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="接地线" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl06.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl06.jpg"） '透明效果
.OnAction="xl_jdx" '点击引发的过程
.TooltipText="接地线" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="线头" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\xl07.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\xl07.jpg"） '透明效果
.OnAction="xl_xt" '点击引发的过程
.TooltipText="线头" '提示文本
EndWith
xBar.Visible=True '显示自定义的菜单栏
SetxBar=Nothing '释放内存
SetxButton=Nothing
EndSub
'***************************************************************************************************
'自定义_工具栏_电阻
SubmyDL_dz（OptionalByReftemzfAsString=""）
DimxBarAsCommandBar,xButtonAsCommandBarButton '声明对象变量
ForEachdqInApplication.CommandBars '在当前菜单中查找"电路菜单",有则删除
Ifdq.Name="电路菜单_电阻"Then
Application.CommandBars（"电路菜单_电阻"）.Delete
ExitSub
EndIf
Next
SetxBar=CommandBars.Add（"电路菜单_电阻",msoBarTop,False,True） '添加菜单
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="保险丝" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz00.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz00.jpg"） '透明效果
.OnAction="dz_bxs" '点击引发的过程
.TooltipText="保险丝" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="电阻器" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz01.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz01.jpg"） '透明效果
.OnAction="dz_dzq" '点击引发的过程
.TooltipText="电阻器" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="可变电阻" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz02.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz02.jpg"） '透明效果
.OnAction="dz_kbdz" '点击引发的过程
.TooltipText="可变电阻" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="电位器" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz03.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz03.jpg"） '透明效果
.OnAction="dz_dwq" '点击引发的过程
.TooltipText="电位器" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="热敏电阻" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz04.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz04.jpg"） '透明效果
.OnAction="dz_rmdz" '点击引发的过程
.TooltipText="热敏电阻" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="压敏电阻" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dz05.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dz05.jpg"） '透明效果
.OnAction="dz_ymdz" '点击引发的过程
.TooltipText="压敏电阻" '提示文本
EndWith
xBar.Visible=True '显示自定义的菜单栏
SetxBar=Nothing '释放内存
SetxButton=Nothing
EndSub
'***************************************************************************************************
'自定义_工具栏_电容
SubmyDL_dr（OptionalByReftemzfAsString=""）
DimxBarAsCommandBar,xButtonAsCommandBarButton '声明对象变量
ForEachdqInApplication.CommandBars '在当前菜单中查找"电路菜单",有则删除
Ifdq.Name="电路菜单_电容"Then
Application.CommandBars（"电路菜单_电容"）.Delete
ExitSub
EndIf
Next
SetxBar=CommandBars.Add（"电路菜单_电容",msoBarTop,False,True） '添加菜单
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="电容器" '按钮标题
.Picture=LoadPicture（myLj+"\电路图标\dr01.jpg"） '加载图片
.Mask=LoadPicture（myLj+"\电路图标\dr01.jpg"） '透明效果
.OnAction="dz_drq" '点击引发的过程
.TooltipText="电容器" '提示文本
EndWith
SetxButton=xBar.Controls.Add（msoControlButton） '添加菜单工具栏按钮
WithxButton
.Style=msoButtonIconAndCaption '图像和文本且文本位于图像的右侧
.Caption="可变电容" '按钮标题
.Picture=Lo
升级会员 