[VBA][第117期]在工作表上画线[已结]

蓝桥玄霜

请见附件。

竞赛日期：2017年3月14日至2017年4月30日
如有疑问，可与蓝版或者我（delete_007)联系。

总结帖位置：第117期竞赛题结帖

hsw212

存在的问题是，图像生成后，当点击单元格，移动窗体，覆盖生成的图像等操作的时候，绘图会消失。应该可以用CreateCompatibleDC等API把绘图存入内存，然后再取出来解决。限于水平有限就不做了，回头看看其他老师的答案。

蓝桥玄霜

hsw212 发表于 2017-3-16 08:54
这个考数学公式的知识点比API的知识点要多...

谢谢参与。涉及的数学知识点在高中水平，呵呵。

香川群子

画个圆可以，不知道画圆弧怎么控制。
……经过录制宏调试，圆弧的画法基本弄明白了。

以圆心坐标(x,y)、半径r对应，
则以圆心对应上顶点(x,y-r)为起点，先画出1/4个圆弧(弧度π/2=90)

ActiveSheet.Shapes.AddShape(msoShapeArc, x, y - r, r, r).Select

然后，分别调整左端点和右端点的弧度角度即可。

Selection.ShapeRange.Adjustments.Item(1) = 90 ……维持左端点位置不变(以右侧水平线为0度)
Selection.ShapeRange.Adjustments.Item(2) = -90……右端点向下扩展1/4个圆弧、构成半圆。


因此，只要能够用三角函数的反正切函数值，就可以计算出圆弧的角度，从而画出需要的圆弧。

香川群子

已经可以模仿出结果来了。

不过，应对各种任意数据，还需要debug改进的。

但是蓝版的例子太简单了，不知道还可能会有几种复杂的线段组合。

香川群子

稍稍做了简单的debug，允许直线1和直线2 的Y值有上下变化。

但仍需满足附加条件：
1.直线1和直线2都是普通的Y=kX+b类型直线，不是X=b垂直线（即不含x1=x2 或 x3=x4）
2.直线1在直线2上面(y1、y2 > y3、y4)
3.2条直线的交点和连接弧线都在右侧。

备注：
条件3可以智能判断，但比较繁琐
条件2可以智能判断，稍繁琐
条件1可以处理，但考虑各种组合非常复杂

以上 Excel Home 香川群子 2017/3/28

dongdonggege

香川群子 发表于 2017-3-28 13:02
稍稍做了简单的debug，允许直线1和直线2 的Y值有上下变化。

但仍需满足附加条件：

大师，任意给定三点，要求画圆弧线。
http://club.excelhome.net/thread-1349369-1-1.html
我做不出来，请大师帮忙，谢谢。

小花鹿

这个题目参与的人不多，我觉得出点能解决实际问题的题目比较好