用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