- 1、本文档共15页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Excel绘制交叉口流量流向图VBA程序
打开Excel,在Excel左上角编辑交叉口转向流量表,和定义斜交角度(东北角),新建宏文件DrawFlowMap,将文后代码复制进宏文件,执行宏文件,即可绘制交叉口流量流向图。
附代码:来自世界代码联盟,作者:一起玩狗的
Sub text(top_x, top_y, t)
定义文本框
ActiveSheet.Shapes.AddShape(msoShapeRectangle, top_x, top_y, 120, 120).Select
Selection.Characters.text = t
With Selection.Characters(Start:=1, length:=30).Font
.Name = Times New Roman
.FontStyle = 常规
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0
Selection.ShapeRange.Line.Visible = msoFalse
End Sub
Sub DrawFlowMap()
画路口流量流向图
Dim F_to_T As Boolean
Dim tt As String
Dim factor As Double
factor = 0.02
定义斜交角
Dim tha, tha1 As Single
tha1 = Cells(2, 7)
tha = Application.WorksheetFunction.Radians(tha1)
判断、清除图形
ActiveSheet.DrawingObjects.Select
Selection.Delete
清除图形结束
东进口
tt = 东进口流量 Chr(10) 左转: Cells(2, 2) Chr(10) 直行: Cells(3, 2) Chr(10) 右转: Cells(4, 2)
Call text(1550, 750, tt)
东进口直行
ActiveSheet.Shapes.AddLine(800, 800, 1500, 800).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.Weight = Cells(3, 2) * factor
绘制出口箭头
ActiveSheet.Shapes.AddLine(725, 800, 801, 800).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
Selection.ShapeRange.Line.B
您可能关注的文档
- FANUC机器人仿真软件操作手册.docx
- GSJ-V型系列旋转式补偿器.docx
- GTH1000-矿用一氧化碳传感器---使用说明书.doc
- H5创建一个简单的自动幻灯片.pdf
- HXHD中英文版送货单.doc
- IPG光纤激光器诊断手册.ppt
- java中的图像匹配实现-java实现图像模版匹配(蜗牛学院).pdf
- KET写作常用词汇和句型.docx
- KingSCADA3.5-TCP方式通讯西门子PLC-200smart-SR40-V1.0.pdf
- LNG加气站建设项目的施工质量管理.docx
- 10《那一年,面包飘香》教案.docx
- 13 花钟 教学设计-2023-2024学年三年级下册语文统编版.docx
- 2024-2025学年中职学校心理健康教育与霸凌预防的设计.docx
- 2024-2025学年中职生反思与行动的反霸凌教学设计.docx
- 2023-2024学年人教版小学数学一年级上册5.docx
- 4.1.1 线段、射线、直线 教学设计 2024-2025学年北师大版七年级数学上册.docx
- 川教版(2024)三年级上册 2.2在线导航选路线 教案.docx
- Unit 8 Dolls (教学设计)-2024-2025学年译林版(三起)英语四年级上册.docx
- 高一上学期体育与健康人教版 “贪吃蛇”耐久跑 教案.docx
- 第1课时 亿以内数的认识(教学设计)-2024-2025学年四年级上册数学人教版.docx
最近下载
- 趣味英语主题综合实践活动课程设计方案.doc
- 必威体育精装版部编人教版道德与法治四年级上册《健康看电视》教案教学设计.pdf
- 人教版化学九级上册.pdf
- 2024年部编版七年级上册语文第三单元整本书阅读 《朝花夕拾》 精读、略读、浏览.pptx VIP
- 逆向饱和电流漏电流.PPT
- 小学语文中高年级单元整体教学设计的实践研究(结题报告).doc
- 08BJ2-5 墙身 轻钢龙骨纸面石膏板(2007).docx
- 征信简版电子版PDF个人信用报告必威体育精装版版2024年可编辑带水印模板.pdf
- 2023人工智能基础知识考试题库(含答案).pdf VIP
- 2023年高考新课标I卷作文“好故事是有力量的”写作.docx
文档评论(0)